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EDITORIALE 



I computer trattati nella rivista possono, in qualche modo, definirsi “picco- 
li”, Vuoi per una ragione di carattere fisico (dimensioni) vuoi perché il 
loro costo di acquisto è decisamente moderato. Fortunatamente questi 
non sono più i parametri che determinano le qualità e le potenzialità di 
un calcolatore personale. Il mercato del personal propone continuamente 
soluzioni con rapporto prezzo /prestazioni sempre più favorevoli e impen- 
sabili solo fino a pochi anni fa. L'unico problema è rappresentato dal saper 
individuare l 1 esatta fascia di utilizzo del proprio computer. Ci sono ancora 
molti utenti che pensano al calcolatore personale come un possibile stru- 
mento di sofisticate e complicate applicazioni gestionali; quelle applicazioni 
che da sempre hanno richiesto hardware e software di una certa mole. 
Nonostante la costante crescita dei prodotti hardware e software, siamo 
ancora molto lontani dal poter disporre dì attrezzature e dì programmi 
necessari alla efficace realizzazione di procedure aziendali che* in qualche 
modo* condizionano poi ['andamento della stessa azienda. Dunque il nostro 
“piccolo” computer deve essere utilizzato in modo corretto. Tra le applica- 
zioni possibili è relativamente semplice individuare quelle la cui fattibilità 
è certamente compatibile con la dimensione del piccolo personal. Per 
cominciare si possono gestire piccoli archivi di dati personali* come gli 
indirizzi di amici e parenti* rubriche telefoniche soggette ad aggiornamenti 
periodici. L'elaborazione dei testi è forse la piu importante applicazione 
egregiamente assolta anche da attrezzature di costo modesto; chiunque 
ha la necessità di scrivere lettere* tesi, relazioni può giustificare ['acquisto 
di un piccolo computer solo per l'utilità del word processing. Sono ancora 
numerose le possibilità da citare: il calcolo scientifico; gli studenti potranno 
trarre gran profitto utilizzando il calcolatore per la soluzione di specifici 
problemi. La didattica: l’apprendimento della programmazione deve far 
parte del bagaglio culturale dei giovani, 11 gioco che è da sempre il miglior 
modo di avvicinare e familiarizzare con il nuovo oggetto; quando il gioco 
è di azione sviluppa i riflessi* quando richiede strategie particolari sviluppa 
ed esalta la capacità di ragionamento. * 

Sono state citate solo le più macroscopiche possibilità di applicazione del 
nostro “piccolo" computer che comunque sono indicative delle sue grandi 
potenzialità; è per questo che dovete essere soddisfatti della scelta opera- 
ta, anche quando qualcuno vi paria del suo “megacomputer" 

Pietra Dell 'Orco 
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Per collaborare a SUPERCOMMODORE 


La rivista è interessata ad articoli e programmi riguardanti la linea Commodore, dì interesse 
generale, chiari ed esaurienti. Vi proponiamo una piccola “guida ”, che ha particolarmente lo 
scopo di rendere più accurata la stesura dei vostri manoscritti: seguendo i nostri consigli si 
accresceranno le probabilità che le vostre buone idee e i vostri programmi vengano pubblicati. 


1 l'angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 

2 l’angolo superiore destro della prima pagina 
dovrà contenere la marca e il tipo di compu- 
ter al quale il lavoro si riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri- 
chieste. 

3 il titolo dell’articolo, sottolineato, dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 

le pagine seguenti potranno essere battute 
normalmente, con la condizione che l'angolo 
superiore destro contenga un’abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina. Per esempio, Sprite Ed.../Brambilla/2. 
Il testo deirarticolo dovrà essere battuto a 
macchina con interlinea di uno spazio e mez 
zo, massimo due spazi; un margine di almeno un 
centimetro dovrà essere lasciato su entrambi i 
lati dello scritto. 

6 dovranno essere usati fogli in formato UNI 
A4 (cm. 21 x 29,7) e il testo, scritto in carat- 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio, 

7 nel caso il testo comprenda più fogli, questi 
dovranno essere uniti con un fermaglio o con 
un punto metallico aperto. 

8 avendo intenzione di spedire più di un artico- 
lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico, 

9 programmi brevi (meno di 20 lìnee) potranno 
essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
E ESSENZIALE per noi disporre dì una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il disco dovranno 
essere etichettati con il nome dell’autore, il titolo 
deirarticolo, il computer interessato e soprat- 
tutto le eventuali espansioni richieste. Come sug- 


gerimenti di programmazione si consiglia di usa- 
re le istruzioni “CHR$( x )”, “TAB( x SPC( x 
piuttosto che stringhe di manipolazione del 
cursore. 

Ad esempio, per uno scroll di 5 lìnee l'istruzione 
“FORI - 1T05:PR1NT;NEXT”. è molto più in- 
terpretabile di 5 Q inverse; e, invece di una dozzi- 
na di simboli di cursore a destra, perché non 
usare semplicemente “PRINT SPC (12)”? Un ra- 
pido controllo dei programmi per operare queste 
sostituzioni sarà molto apprezzato da noi e dai 
lettori. 

per maggior chiarezza, all* interno dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE- 
TURN, LIST, RND, PRINT ecc.). Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 

^ gli articoli ed i programmi potranno avere 
Jl M qualsiasi lunghezza: da una routine di una 
sola linea fino a programmi molto compiessi. 

volendo includere diapositive, queste do- 
vranno avere formato 24x36, o 6x6. 
non prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 

editrici. 

il materiale non pubblicato non verrà re- 
stituito. 

il compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all’Interesse del testo e/o del programma (da un 
mìnimo di L. 50,000 a un massimo dì L. 
300 . 000 ). Il pagamento verrà effettuato in caso 
di pubblicazione del lavoro. 


Inviate idee e programmi a: 

SUPERCOMMODORE 
Viale Restelli, 5 
20124 Milano 

e saremo lietissimi di pubblicare i contri- 
buti migliori. 

La Redazione 
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Alta risoluzione ani C64 

Spetf. Redazione, 

ho Acquistato dì recente un Commodore 
64 dopo essere stato possessore di uno 
ZX Spectrum e, dopo fa piacevole sor 
presa ne! vedere con quanta facilità si 
possono ‘editare” e correggere le linee 
BASIC rispetto al sistema adottato dalla 
Sinclair , sono purtroppo rimasto deluso 
dalla mancanza della possibilità di otte- 
nere grafici di funzioni matematiche in 
otto risoluzione , doluta alfa mancanza 
delle istruzioni PLOT DRAW . CIRCLE. 
ecc. presenti irtuece net pur più modesto 
Spectrum 16Kbyte. Esiste un modo per 
simulare queste istruzioni anche su! 
Commodore 64? 

P)*ro Tagliati 

R. In realtà, le possibilità grafiche del 
C64 sono superiori a quelle dello Spec- 
trum, disponendo quest'ultimo di una 
pagina grafica formata da 256x192 = 
49152 punti, contro quella del C64 di 
320x200 - 64000 punti singolarmente 
ìndirizzabjlì. Tuttavia, mentre con lo 
Spectrum è possibile visualizzare un 
punto sullo schermo, facendo semplice 
uso del l'istruzione PLOT, oppure una 
linea od un cerchio con le istruzioni 
DRAW e CIRCLE, la procedura da se- 
guirsi con il C64 è più complessa ed 
anche più lenta se ottenuta tramite ij 
BASIC, In primo luogo occorre attivare 
la pagina grafica fi a faremo partire dal- 
la locazione 8192) con la seguente li- 
nea: 


10 POKE 53265, PEEK (53265) OR32 

La pagina grafica apparirà ora come un 
insieme dì caratteri strani e colorati. Ciò 
avviene perché questa zona di memoria 
contiene byte casuali, ed occorrerà 
quindi “pulire" la pagina grafica ponen 
do uno 0 in tutti i suoi byte: 

20 FORI- 8192 TO 16383: POKEl, 0: 
NEXT 

A questo punto dovremo stabilire i colo- 
ri dello sfondo e delle linee che intendia- 
mo tracciare. Il colore della pagina gra- 
fica (o bitmap) è controllato dalla me- 
moria di schermo, e in questo esempio 
verrà posto in azzurro. Il colore di quan- 
to tracciato sarà il nero: 

30 FORI- 1024 TO 2023: POKEl, 3: 
NEXT 

Ora, nel caso si desideri disegnare una 
funzione matematica, un'altra sezione 
del programma prowederà a calcolare 
le coordinate X ed V dei punti da trac- 
ciare in base al sistema di assi coordina- 
ti scelto e già rapportate al nostro siste- 
ma di assi cartesiani con origine nell’an- 
golo superiore sinistro dello schermo. 
Dalle coordinate X e Y occorrerà risali- 
re, all’interno dello spazio carattere di 
8x8 bit, a quale sia il bit da “ accende- 
re", e quindi occorrerà determinare la 
posizione di quello spazio carattere al- 
l’interno della bitmap. La riga (da 0 a 
24) a cui appartiene lo spazio carattere 
è data da: 

40 R- INT (Y/8) 

mentre la colonna (da 0 a 39) sarà data 
da: 

50 t> INT (X/8) 

La lìnea corrispondente alla posizione 



in cui si trova il punto alFinterno dello 
spazio carattere (da 0 a 7) è data da: 

60 L= YAND 7 


TI bit interessato in quel byte è dato da: 

70 B= 7-(X AND 7) 

11 punto interessato sarà dunque defini- 
to dalla formula: 

80 P= 8192+R - 320+C* 8+L 

e quindi attivato con: 

90 PQKEP, PEEK (P) OR* 2B 


Come esempio si può aggiungere la li 
nea: 

35 X= I00 Y» 100 

che farà apparire il punto dì coordinate 

( 100 , 100 ), 

Si può ritornare alla pagina testo, pre 
mende un tasto qualunque, con: 

100 GETA$:IFA$= ^THEN 100 
1 10 POKE 53265, PEEK (53265) AND 
223 

Come si vede, la procedura da seguire 
sul C64 (ed analogamente sul VÌC 20) 
è piuttosto complessa, anche se, una 
volta imparate queste locazioni e que- 
ste formulette, si ottengono senza diffi- 
coltà grafici molto ben definiti e presen- 
tabili. Dovendo-)! povero C64 eseguire 
tutti questi calcoli per ogni punto dise- 
gnato, il tracciamento di un grafico av- 
verrà in modo molto lento. Se si deside- 
rasse velocizzare enormemente tutto il 
procedimento, si dovrebbe ricorrere a 
routine in linguaggio macchina, come 
quelle presentate sul numero 5 della 
rivista nel programma SPIRA, 
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La piccola guida 
del principiante 


Che cot’t um programma? 

Il solo computer non può compiere alcuna operazione. 

Un computer possiede potenzialità, ma, come una macchina 
senza benzina, senza un programma non può funzionare. 
La maggior parte dei programmi pubblicati su SUPER- 
COMMODORE per i computer Commodore sono scritti in 
un linguaggio per calcolatori chiamato BASIC. 19 BASIC è 
facile da imparare ed è disponibile, di serie, nel V1C 20 e 
nel Commodore 64. 

Programmi BASIC 

Ogni mese SUPERCOMMODORE pubblica programmi sia 
per il VIC 20 che per il CG4, Tanto per cominciare, se 
possiedi un VIC 20 copia solo i programmi scritti per la tua 
macchina, indicati con “versione per VIC 20". Più tardi, 
quando avrai acquisito esperienza con il BASIC del tuo com- 
puter, potrai cercare di copiare e convertire programmi 
scrìtti per altri calcolatori. Diversamente dal linguaggio cor- 
rente, che può essere variamente interpretato, il BASIC di 
solito ha un solo modo corretto per indicare qualcosa. 

Ogni lettera, carattere o numero ha il suo significato. 

Un errore banale è costituito dalla sostituzione del numero 
“0" con la lettera ri O w oppure il carattere minuscolo “P 
invece del numero "1" o ancora il carattere maiuscolo “B" 
con il numero “8". 

Devi anche inserire tutta la punteggiatura, i due punti (:) e 
le virgole, copiando esattamente ciò che appare sulla rivista. 
Gli spazi possono essere importanti. Per essere sicuro copia 
il listato esattamente come si presenta. 

Li parente»! e 1 caratteri spedili 

Ueeeezione per questa regola di copiatura si presenta quan- 
do incontrerai indicazioni tra parentesi, quali; “{GIU}", 
Ogni cosa compresa tra parentesi è un carattere speciale 
oppure un carattere che non può essere facilmente prodotto 
con la stampante. Incontrando un carattere di questo tipo 
fai riferimento alla “Piccola guida per V input dei program- 
mi”. 

Le igtrmxioni DATA 

Alcuni programmi contengono una sezione, O delle sezioni, 
dì istruzioni DATA. Queste linee di istruzione forniscono le 
informazioni di cui il programma ha bisogno. 

In alcuni casi le istruzioni DATA costituiscono il programma 
vero e proprio, in altri contengono codici grafici. Queste 


linee sono particolarmente soggette agli errori. Se un solo 
numero in una lìnea di istruzione DATA è sbagliato, il calco- 
latore potrebbe “piantarsi” o distruggere il programma. La 
tastiera e il tasto STOP appaiono inattivi e lo schermo com- 
pletamente vuoto. Non lasciarti prendere dal panico. Non 
si è verificato alcun danno. 

Per riprendere il controllo devi spegnere 11 computer e sue 
cessivamente riaccenderlo. Ciò cancellerà qualsiasi pro- 
gramma presente in memoria, per cui e sempre necessario 
fare il SA VE dei tuo programma prima di comandare il 
RUN. 

Se il computer sì ferma, puoi caricare (LOAD) il programma 
e cercare Terrore. 

A volte, quando il programma viene “lanciato*', un’istruzione 
DATA errata può causare un messaggio di errore. 

Il messaggio di errore potrebbe riferirsi alla linea di program- 
ma che legge (READ) il contenuto delie istruzioni DATA. 

conoscere il co» pmter 

Dovresti prendere confidenza con il computer prima di pro- 
cedere alla copiatura del programma. 

Impara le istruzioni che si usano per memorizzare e richia- 
mare ì programmi da nastro o da disco. Dovrai conservare 
una copia del tuo programma, se non vorrai copiarlo ogni 
volta che lo devi usare. Impara ad usare le funzioni di “edt 
ting” della tua macchina. Come puoi correggere un errore? 
Puoi sempre ricopiare la linea e in questo caso devi sapere 
come procedere. Sapresti come inserire i caratteri in "in ver 
se", t caratteri minuscoli e quelli di controllo? 

Tutto ciò è spiegato nel manuale del calcolatore. 

Un veloce rlpaiio 

1) Copia il programma una linea alla volta, con ordine. 
Premi RETURN alla fine di ogni linea. Usa il tasto “DEL” 
per correggere gli errori, 

2) Confronta la linea copiata con quella presente nella rivi 
sta. Puoi controllare l’intero programma nel caso in cui 
si presenti un errore quando esegui il RUN. 

3) Accertati di aver inserito le istruzioni tra parentesi graffe 
con gli appropriati caratteri di controllo (fai riferimento 
alla “Piccola guida per lìnput dei programmi” che trovi 
In questa stessa rivista). 

Siamo spiacenti di non poter rispondere singolarmente alle 
richieste di informazioni circa i programmi, prodotti o servizi 
apparsi su SUPERCOMMODORE. 
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Stampante Plotter 1520 


Tra i tanti settori applicativi del 
personal computer la grafica ri- 
veste oggi un ruolo di primo pia- 
no, grazie anche al perfeziona- 
mento tecnico delle apparec- 
ch Sature e del software dedicato 
alla visualizzazione delle imma- 
gini e dei segni. 


I linguaggi di programmazione più dif- 
fusi includono un numfro sempre cre- 
scente di istruzioni e comandi per l’uso 
della grafica sul vìdeo, e il progresso 
tecnologico ha permesso di realizzare 
computer a basso costo* come il Com- 
modore 64, dotati di capacità grafiche 
per la gestione del video che fino a qual- 
che anno fa erano prerogativa soltanto 
di pochi personal della fascia alta. 

Il trasferimento su carta delle immagini 
e dei grafici creati con il computer è il 
passo successivo. 

Con il Q64 si può già utilizzare la stam- 
pante grafica MPS 801, che permette 
di ottenere la copia in bianco e nero su 
carta dello schermo video. 

Per la produzione di grafici a colori e 
disegni geometrici, diagrammi e Isto 
grammi, schemi circuitali e costruttivi o 
layout di oggetti o ambienti, un plotter 
è l'Ideale Se è a quattro colori, tanto 
meglio. E se è in grado anche di scrivere 
in quattro formati diversi, in orizzontale 
e verticale e di riprodurre testi e listati, 
allora è davvero l'ideale per lo studen- 
te, l 1 hobby sta, il progettista, il grafico, 
l'architetto, Tingegnere, il manager e il 
professionista. 

La nuova stampante-plotter a colori 
1520 della Commodore stampa in quat- 
tro colori su carta comune, è semplice 
da usare perché utilizza i comandi del 
linguaggio BASIC Commodore, si colle 
ga direttamente al C64 tramite cavo ed 


è facile da trasportare perché è piccola 
e leggera. 

Stampa in quattro colori 

La stampante-plotter 1520 è dotata di 
supporto per quattro speciali penne a 
colori (blu. verde, rosso, nero), fornite 
in dotazione. La scelta del colore può 
essere fatta direttamente, premendo 
uno dei tasti sulla consolle, o via softwa- 
re, utilizzando l’apposito comando BA 
SIC, Le penne a sfera con inchiostro ad 
alta densità sono di lunga durata e di 
facili! sostituzione. All’atto delLaccen 
sione la stampante esegue un test di 
scrittura per il controllo del funziona- 
mento delle penne e del meccanismo di 
avanzamento della carta. Il rotolo di 
carta, fornito nella confezione, è largo 
114 millìmetri ed è alloggiato su un pra 
tico supporto facilmente smontabile per 
il trasporto della stampante. 
L'avanzamento della carta è comanda- 
to da un apposito tasto sulla parte ante- 
riore. e può essere controllato anche 
dal computer. 

É facile da programmare 

La stampante-plotter 1520 accetta i co* 
mandi impartiti dal computer utilizzan- 
do il linguaggio BASIC Commodore. La 
testina portapenne si muove in orizzon 
tale lungo Lasse X, mentre la carta si 
muove in verticale lungo l'asse Y. Il 
tracciamento dei segni (plotting) si Ottie- 
ne combinando in modo opportuno gli 
spostamenti lungo gli assi della testina 
e della carta. 

La notevole precisione dei movimenti 
consente una risoluzione di 0.2 millime- 
tri. L asse X si estende per 96 mm per 
un totale di 480 punti, lasciando un 
margine laterale di 9 mm. L'asse Y è 
continuo e permette di programmare 


2000 posizioni corrispondenti a 2000 
punti. Speciali comandi consentono di 
spostare automaticamente la penna al 
centro dell'area di lavoro o nella posi- 
zione di “Home”. 

I comandi possono essere inviati alla 
stampante-plotter in modo diretto altra 
verso la tastiera, per ottenere un'esecu- 
zione immediata, o possono essere in- 
clusi in un normale programma BASIC. 

II sistema di scambio dei segnali con il 
plotter è lo stesso impiegato con le altre 
stampanti Commodore e fa uso dei co- 
mandi OPEN e CMD, 

Per sfruttare al massimo le ampie possi- 
bilità offerte dal plotter si utilizza la tec- 
nica degli indirizzi secondari Attraverso 
semplici comandi (descritti dettagliata 
mente nel manuale d'uso) è possibile 
stampare caratteri alfanumerici in for 
malo ASCII provenienti dal computer. 
Questo significa che il plotter è in grado 
di riprodurre i listati dei programmi in 
memoria e di stampare sequenze di ca- 
ratteri e brani di testo esattamente co- 
me una normale stampante Per i carat 
Ieri alfanumerici è possibile selezionare 
la dimensione (10, 20, 40 o 80 caratteri 
per riga) e Torientamento delle scritte 
(orizzontale o verticale). 

Per il tracciamento di grafici e figure 
geometriche esìste inoltre una serie di 
comandi per disegnare linee da un pun 
to all'altro dell’area di lavoro, per muo 
vere la penna sul foglio senza tracciare 
e per creare sistemi di riferimento rela- 
tivi. Una funzione aggiuntiva consente 
di ottenere linee tratteggiate di 15 tipi 
diversi, con le quali arricchire diagram- 
mi e istogrammi. 

Si collegi direttamente 

11 cavo seriale in dotazione alla stam- 
pante-plotter 1520 va infilato sem pii ce- 
rnente nella presa delia porta seriale 
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pasta sul retro del C64. senza bisogno 
di ulteriori interfacce di' collegamento. 
Se si possiede già un drive 1541 , il cavo 
andrà invece infilato nella presa poste- 
riore di quest 'ultimo. 

È leggera t maneggevole 


La stampa nte-p loti e r 1520 è di ridotta 
sime dimensioni (min 251x282x93), 
pesa poco più di 1 kg e può essere 
trasportata con facilità. La maneggevo- 
lezza e il minimo ingombro ne fanno la 
periferica ideale per chi ha problemi di 
spazio e per chi voglia avere la possibili- 
tà di trasformare il C64 in un vero siste- 
ma portatile completo. 



Caratteristiche tecniche 

Metodo di stampa; 

Penne con inchiostro ad acqua 

Colori; 

4 (nero, blu, rosso, verde) 

Unità stampante: 

A tamburo 

Velocità di stampa: 

12 caratteri / secondo 

Lunghezza rigai 

10 20-40-80 caratteri 

Velocità pìottaggio: 

260 passi / secondo 

Passo: 

0.2 mi) sugli assi X-V 

Velocità tracciamento: 

52 mm /secondo sugli assi X-Y 

Linee: 

73 mm /secondo in asse diagonale 

Area di lavoro: 

479 passi sull’asse X 

Programmabile sudasse Y 
(+/“999 posizioni) 

Durata penne: 

250 metri minimo 

Carta; 

Rotolo Commodore 1520030-01 
Larghezza 114 mm 

Spessore 70 micron 

Diametro rotolo 70 mm massimo 

Dimensioni esterne: 

251x282x93 mm 
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Piccola guida per 
l’input 

dei programmi 


M olli dei programmi listati da SUFERCOMMO- 
DORE contengono particolari caratteri dì control* 
lo (controllo cursore* tasti colore, video-inverse* ecc.J. 
Per rendere chiaro dò che dev'essere battuto quando 
è necessario inserire uno dei suddetti caratteri sono 
state stabilite le seguenti convenzioni. 

Generalmente i listati per V1C 20 e €64 contengono delle 
«parole* racchiuse tra parentesi graffe { J; tali parole 
rappresentano particolari caratteri di controllo: {GIÙ! 
significa premere il simbolo del cursore verso il basso. \ 5 
SPAZI j vuol dire battere 5 volte la barra-spazio. 

Per indicare che un tasto dev’essere «shiftato** cioè 
premuto insieme al tasto SHIFT, nel listato il sìmbolo 
di questo tasto sarà sottolineato. 

Per esempio S significa che dev’essere premuto il tasto 
S mentre è abbassato il tasto SHIFT. 

La manovra farà apparire sullo schermo un piccolo 
«cuore*. 

Trovando un simbolo sottolineato chiuso tra parentesi 
graffe (esempio j IO N j dovrà essere interpretato come 
«premere 11 carattere indicato per il numero di volte 
che lo precede nelle parentesi* nel nostro esempio 
premere 10 volte Li tasto N «shiftato». 

Se il tasto da premere è indicato tra le parentesi [ ( )] 
vuol dire che lo stesso dovrà essere premuto mentre 
è premuto il tasto «Commodore* (il tasto «Commodo* 
re* è quello posto nell 'angolo in basso a sinistra). 

Se il tasto scritto tra [ ( >] è preceduto da un numero* 
ciò significa che il tasto dev'essere premuto per il nu- 
mero di volte indicato. 


Raramente si potrà trovare un carattere alfabetico soli- 
tario racchiuso tra parentesi graffe. Tale carattere sul 
C64 può essere battuto mentre è premuto il tasto 
CTRL. 

Ad esempio j A j sta ad indicare la sequenza CTRL* A. 
A proposito del «modo virgolette» è nota la possibilità 
di muovere il cursore sullo schermo con i tasti CRSR. 
Ogni tanto i programmatori desiderano muovere il cur- 
sore durante l'esecuzione del programma. È per que- 
sto motivo che nel programmi si troveranno dei I SIN 1* 
{ HOME j e [BLU \. 

L’unico modo perché il calcolatore distingua il coman- 
do diretto da quello inserito nel programma è il «modo 
virgolette*. Premendo il tasto «virgolette» (tasti SHIFT 
2) il calcolatore si predispone appunto in «modo virgo- 
lette». 

Battendo un carattere qualsiasi cercando poi dì cor- 
reggerlo muovendo il cursore* si otterrà solo un trat- 
to verticale in un quadratino inverso. Questo è infat- 
ti il simbolo del cursore a sinistra nel «modo virgolette*. 
L’unico comando di editing non utilizzabile alFinterno 
di un programma è il DEL. Battendo nuovamente le 
«virgolette* il calcolatore lascia il «modo virgolette*. Si 
può accedere al «modo virgolette» quando inserite spa- 
zi nella linea. 

In ogni caso* Il sistema più semplice per uscire dal 
«modo virgolette* è quello dì premere il tasto RE- 
TURN. 

Utilizzare la tabella che segue quando è necessario 
inserire comandi relativi al cursore e ai tasti colore. 


Quando leggete: 

Premete: Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

Quando Leggete: Premete: 

Vedrete: 

(CLR } 

ITT7JI t*]T FJ’.MM 1 

E 

{CYN} 

m o 

II 

[<7>] 

□ a 


□ 

(HOME) 

rruviM'ii 

m 

{PUR} 

eoo 

1 

1<8>1 

sa 


■ ■ 
■ m 

{su} 

Infili ltI4.ll ILI 

a 

{CRN} 

14 / fi Q 

□ 

{FI } 

m 



(Giir } 

filimi} 

E) 

(BLU) 

fin q 

Q 

(F2) 

m 



{SIN} 


II 

{YEL} 

larari 

SS 

{ F3 } 

tt3 



(DESI 


D 

[<1>] 

30 

□ 

(F4J 

m 


fi 

1RVS) 

fm q 

□ 

i< 2>l 

so 

fi 

(FS) 

m 


II 

{OFF} 

CES □ 

■ 

t<3>] 

so 

s 

I F6} 



fi 

{ BLK } 

osili 

■ 

f<4>ì 

so 

ra 

1F7) 

KB 


II 

(WHTl 

fTy? Il 

[1 

t < 5 > 3 

so 

E 

{F81 

wm 


■ 

{ RED } 

m ci 

E* 

[<6>] 

so 

■i 
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Giovanni Valerio 

Commodore 64 
la grafica e LI suono 

Ogni argomento viene spiegato e ac- 
compagnato da numerosi esempi 
commentati. Net libro sono listati 
moltissimi programmi che sono regi- 
strati sulla cassetta allegala, 

Nel Capitolo 1 si tratta del video, del- 
la tastiera e delta grafica in modo 
carattere, il Capitolo 2 é dedicato at- 
ta grafica e ne approfondisce tutti gli 
aspetti, il Capiioio 3 tratta degli apri- 
te . Nel Capitolo 4 viene trattato l'ar- 
gomento del suono. Completano il li- 
bro tre appendici: i regista del VIC II 
e del SIP e le frequenze delle note 
musicali, 

Cod. m 8 Pag, 270 Lire 34.000 


Rita Bonetti 

Commodore 64 
il basic 

Un’accurata esposizione dei lin- 
guaggio BASIC, accompagnata da 
numerosi esempi. 

Nel Capitolo 1 si ha una panoramica 
dei diversi argomenti, il Capitolo 2 é 
dedicato al linguaggio. Nei Capitolo 
3 si approfondisce l'uso della tastie- 
ra e del video. Il Capitolo 4 fornisce 
te informazioni necessarie per usare 
disco e cassetta per memorizzare 
programmi. 


Q 
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Rita Bonetti 

Commodore 64 
i file 

Questo libro tratta in maniera com- 
pleta e precisa la gestione dei file su 
cassetta e su disco. 

Oltre a brevi programmi esempio, ri- 
portati per spiegare l'uso delle istru- 
zioni, il libro contiene cinque pro- 
grammi per creare t gestire un archi- 
vio di dati SEQUENZIALE su casset- 
ta, SEQUENZIALE Su disco, RAN- 
DQM su disco, RANDGM/USER su 
disco, RELATIVO su disco. 

Con, 400 B Pag. m Lire 17.000 


Il Capitolo 5 è dedicato alia stam- 
pante. Nel Capitolo 6 si parta della 
costruzione del programma. 

Nel Capitolo 7 vengono passati in 
rassegna I codici e i numeri del cal- 
colatore. Il Capitolo 8 e dedicato alla 
memoria. Nel Capitolo 9 si tratta de- 
gli errori. Completano il libro, l’Ap- 
pendice A dedicata alla tastiera e 
l'Appendice B airargomenlo del BA- 
SIC compilato. 

Tutti i programmi esempio riportati 
nel libro sono disponibili a richiesta 
su floppy disk. 

Cod. 348 D Pag. 316 Ure 26.000 
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OK-List 
per la perfetta 
battitura 
dei listati 


I nserite in memoria TOK LIST prima di 
accingervi a battere ì listati pubblicati: 
avrete a disposizione un formidabile mez- 
zo per essere sicuri di aver inserito ne! 
computer ogni carattere in modo assolu- 
t a mente corretto. 

Tutti i nostri listati sono caratterizzati da 
un numero aggiunto ad ogni linea di prò 
or a m ma, ad esempio: rem 123. NON 
COPIATE QUESTA PARTE DELLA LI- 
NEA’ Serve unicamente per vostra infor- 
mazione. L’istruzione REM ha Punico scó- 
po di renderla inoffensiva se per errore 
doveste batterla. 

Se, prima di iniziare il lavoro di battitura 
del listato, caricate in memoria OK-LIST 
e io attivate con RUN, per ogni linea che 
battete verrà visualizzato un numero (det- 
to checksum) nell'angolo superiore sini- 
stro dello schermo. 

Confrontate questo numero con quello 
pubblicato per ogni linea del listato: se 
non corrisponde, ciò significa che avete 
commesso un errore nella battitura della 


linea stessa. 


Le ore buttate per cercare e correggere 
errori di battitura in programmi che non 
funzionano saranno solo un lontano ricor- 
do! 

Due ultime cose di cui tenere conto: 
OK-LIST non tiene conto degli spazi: que- 
sto per vostra convenienza, poiché questi 
generalmente sono poco importanti. 
Infine, OK-LIST è allocato nel buffer del 
registratore (locazioni 886-1018), quindi 
prima di salvare su cassetta il programma 
che state battendo, ricordatevi di disabi- 
tarlo premendo contemporaneamente 
RUN/STOP + RE5TORE. Potrete poi 
riattivarlo con SYS 886. 

Il sistema più comodo per usare OK-LIST 
è quello di battere normalmente il pro- 
gramma, quindi listarlo e portarsi con il 
cursore sul numero di lìnea più basso che 
appare sul video; premere quindi RE- 
TURN e confrontare il numero di che- 
cksum visualizzato nell'angolo superiore 
sinistro del video con quello pubblicato 
per la data riga del programma. Il cursore 
sì porterà automaticamente sulla linea 
successiva, e non dovrete fare altro che 
premere 11 checksum seguente. 

Data l'area di memoria in cui si trova. 
QK LIST non può essere usato per con- 
trollare un programma già salvato su cas- 
setta, mentre ciò è possibile se il prò 
gr a m ma è stato registrato su disco. 


OK-LIST 
versione 
per VIC 20 
e C 64 


100 PRXNT ,f (CLR) ATTENDERE PREGO - , * 11 
105 FORI ^ 8 8 6T01 0 1 8 : RE ADA : C K=C K+ A : POKE I , A : 
NEXT 

110 IF CKOÌ7539 THEN PRINT U {Giti 1 lERRORE 
NELLE ISTRUZIONI DATA": END 
120 SYS 886 : PRI NT” [CLR} f 2 GIU* }OK“LlST AT 


TI VATO . 11 : NEW 

886 DATA 173,036,003,201,150,208 
892 DATA 001,096,141,151,003,173 
898 DATA 037,003,141,152,003,169 
904 DATA 150,141,036,003,169,003 
910 DATA 141,037,003,169,000,133 
916 DATA 254,096,032,087,241,133 
922 DATA 251,134,252,132,253,008 
928 DATA 201,013,240,017,201,032 
934 DATA 240,005,024,101,254,133 
940 DATA 254,165,251,166,252,164 
946 DATA 253,040,096,169,013,032 
952 DATA 210,255,165,214,141,251 
958 DATA 003,206,251,003,169,000 
964 DATA 133,216,169,019,032,210 
970 DATA 255,169,018,032,210,255 
976 DATA 169,058,032,210,255,166 
982 DATA 254,169,000,133,254,172 
988 DATA 151,003,192,087,208,006 
994 DATA 032,205,189,076,235,003 
1000 DATA 032,205,221,169,032,032 
1006 DATA 210,255,032,210,255,173 
1012 DATA 251,003,133,214,076,173 
1018 DATA 003 
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Il modem, questo sconosciuto 

di S, Darling e G. P*ele 

trad. ed adatt. 

di M. CHstuib Grizzi 



Anche in Italia età Iniziando a 
diffondersi, seppure molto len- 
tamente e timidamente, I "inte- 
resse per le tele comunica cloni 
tra home computer via modem. 
Cerchiamo qui di vedere quali 
siano le caratteristiche princi- 
pali di questa periferica e cosa 
richieda per essere usata corret- 
tamente. 


M entre il computer è in grado di ese- 
guire migliaia dì operazioni e pro- 
grammi sìa per il lavoro che per il diver- 
timento, esiste una periferica che apre 
tutto un nuovo mondo nelFuso dei cal- 
colatore: il modem. Tramite un modem 
è possibile comunicare con altri compu- 
ter attraverso le normali linee telefoni- 
che. 

Fondamentalmente, un modem esegue 
due tipi di operazione: da una parte tra- 
sforma le informazioni provenienti dal 
computer in formato digitale in suoni 
analogici, che possono essere trasmessi 
attraverso le linee telefoniche: questa 
operazione viene chiamata modulazio- 
ne. I suoni generati sembrano tanti hip 
e beep r ognuno dei quali rappresenta 
un bit di dati. All’altro capo del cavo 
telefonico un secondo modem ritraduce 
gli impulsi sonori net formato digitale 
d'origine; questa operazione e detta de- 
modulazione. Da qui nasce il nome di 
modem: MOdulatore-DEModulatore. 
Accoppiato con delFopportuno softwa- 
re di comunicazione , che istruisca il 
computer su come dialogare con un al- 
tro elaboratore, un semplice modem vi 
permette istantaneamente di accedere 
a banche dati, a informazioni generali 
sul tempo o sulla percorribilità strade, 
oppure ai programmi dei vostri amici 
forniti anch'essi dì modem. 

Mentre la funzione basilare dei modem 
è questa conversione dì segnali, essi 
stanno diventando sempre piu sofistica- 
ti: la nuova generazione di modem può 
formare automaticamente ì numeri di 
telefono, rispondere a chiamate prove 


nienti dali'estemo ed eseguire moltepli- 
ci altre operazioni sotto il controllo di 
un programma e senza alcun intervento 
umano. 

Oltre che rendere questi apparati sem- 
pre più sofisticati, uno degli obiettivi pri- 
mari dei progettisti e programmatori è 
il raggiungimento di una facilità d’uso 
sempre più spinta: lo scopo è cercare 
dì superare quella specie di “timidezza" 
che molti provano sedendosi a un tavo- 
lo colmo di nuova tecnologia, particolar- 
mente composta da computer e mo- 
dem. Fortunatamente, questo tipo dì 
paure è destinato a scomparire con la 
diffusione sempre più vasta dei perso- 
nal ed home computer; questa è quanto 
meno la speranza dei tecnici e dei pro- 
duttori di alta tecnologia microelettroni- 
ca. 


Esiste un certo numero di fattori da con- 
siderare prima di decidere l'acquisto di 
un modem; per prima cosa occorre sta- 
bilire quale tipo si desideri acquistare: 
i modem possono essere ad accoppiato 
re acustico oppure a connessione direi 
fu. I primi costituiscono storicamente il 
primo tipo di modem prodotto e sono 
stati fino ad ora ì più economici e più 
diffusi tra la larga massa di utenti statu- 
nitensi di home computer. Ora invece 
sì sta assistendp ad un calo di prezzo 
dei modem a connessione diretta - fino 
a poco tempo fa più costosi, anche se 
più affidabili che lascia supporre una 
loro sempre più larga diffusione, I mo- 
dem ad accoppiatore acustico sono do- 
tati dì due coppette, generalmente in 
gomma, alle quali vengono accoppiate 
le due estremità della cornetta del tele 
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fono. Una delle due coppette contiene 
un altoparlante che genera i suoni da 
inviare attraverso la linea telefonica, 
mentre F altra contiene un microfono 
con il compito di ricevere 3 suoni inviati 
dairaltro modem con il quale si è in 
collegamento telefonico. I modem ad 
accoppiatore acustico hanno fondamen- 
talmente due difetti: molti nuovi appa- 
recchi telefonici possiedono cornette 
non standard che non vanno ad accop- 
piarsi correttamente con le due coppet- 
te, inoltre il rumore dì fondo nella tra 
smissione dei dati risulta molto elevato, 
in quanto risente di tutti i rumori pre- 
sentì nella stanza in cui si trova il mo- 
dem, difetto ancora più accentuato se 
l' accoppiamento tra cornetta e coppet- 
te non è più che perfetto, 

1 modem a connessione diretta by- 
passano la cornetta e le due coppette, 
andando a collegarsi direttamente ah 
l’interno deirapparecchio telefonico, e 
quindi lavorano in totale silenzio. Alcuni 
modem a connessione diretta hanno 
l'aspetto fisico delle cartrìdge e vengo- 
no connessi nella porta espansioni del 
computer, mentre altri sono costituiti 
da unità a sé stanti collegate sia al com- 
puter che all'apparecchio telefonico. 
Esistono Inoltre dei modem costruiti di- 
rettamente all'interno dell’ appare echio 
telefonico stesso. 

Un altro fattore da considerare nell'ac- 
quisto di un modem è la velocità alla 
quale avviene la comunicazione. Natu- 
ralmente, 1 modem veloci sono più desi- 
derabili, in quanto tengono occupate 
per un tempo inferiore le linee telefoni- 
che, con un conseguente minor carico 
economico per la comunicazione; tutta- 
via sono più costosi all'atto dell* acqui- 
sto. La velocità dì trasmissione dei mo- 
dem viene misurata in bit al secondo 
(BPS) oppure in bùud (l'ultimo termine 
non è tecnicamente corretto, ma è or- 
mai entrato nell'uso comune). I modem 
per personal computer generalmente 
lavorano sia a 300 BPS fa II' ine ire a 30 
caratteri al secondo) che a 1200 BPS 
(circa 120 caratteri al secondo). Benché 
alcuni modem molto costosi possano 
trasmettere dati a 9600 BPS, le linee 
telefoniche normali non sono adatte alla 
trasmissione di dati con velocità supe 
ri ore a 2400 BPS. 

I modem più veloci consentono un ri- 
sparmio sia di tempo che di denaro, dal 
momento che riducono tanto il costo 
della bolletta telefonica quanto il tempo 
dì accesso ai servizi commerciali dì In- 
formazione. A 1200 BPS ì caratteri 
scorrono sul video ad una velocita tale 
da renderne molto diffìcile la lettura, 
ma ì programmi più completi dì teleco- 
municazione permettono di ricevere 


ogni cosa e salvarla su disco, per una 
successiva utilizzazione a velocità infe- 
riore, oppure per stampare su carta 
quanto ricevuto. 

Gli sviluppi futuri della telecomunicazio- 
ne ad alta velocità dipendono da quanto 
faranno le aziende telefoniche per mi- 
gliorare la qualità delle linee, alcune 
delle quali sono in uso da più di cinquan- 
tanni. Si stanno già sperimentando 
operativamente conduttori di segnale a 
fibre ottiche, che permettono di trasferi- 
re una gran quantità di dati ad alta velo- 
cità e con Interferenza di fondo pratica 
mente inesistente. 

Al giorno d'oggi, comunque, i 1200 
BPS sembrano ormai essere un nuovo 
standard per le comunicazioni tra gli uf- 
fici, Quando lunghi file vengono inviati 
o ricevuti attraverso le linee telefoniche 
il costo maggiore di un modem veloce 
viene rapidamente recuperato attraver- 
so il risparmio sul costo di gestione delle 
comunicazioni. Naturalmente, per usi 
casalinghi o per co (legarsi con un grup- 
po dì amici è molto più conveniente un 
modem acustico a 300 BPS. Altre ca- 
ratteristiche che, come già accennato, 
aumentano la versatilità - ed il prezzo 
— dei modem sono la possibilità dì auto- 
risposta a chiamate in arrivo, di forma- 
zione automatica di numeri telefonici 
con ripetizione automatica nel caso la 
linea sia occupata e la possibilità di ef- 
fettuare un self-test. 

Come altre periferiche per home com- 
puter, i modem non sono apparati gene- 
rici: alcuni sono compatibili con lo stan- 
dard RS 232 e quindi collegabili con un 
gran numero di computer differenti, al- 
tri sono progettati appositamente per 
funzionare con un solo particolare com- 
puter, Il software di gestione deve esse- 
re inoltre acquistato quasi sempre sepa- 
ratamente. Dal momento che in Italia 
non esiste ancora un vero e proprio 
mercato dì modem a livello amatoriale, 
diamo un’occhiata a quello nordameri- 
cano: i prezzi dei modem oscillano at 
tualmente dai 50 ai 1000 o più dollari. 
L'anno scorso i modem più economici 
costavano intorno agli 80 dollari, men- 
tre qualche anno fa erano difficilmente 
reperibili per meno di 200 dollari. La 
concorrenza continua a far scendere i 
prezzi, e verso la metà di quest'anno un 
modem da 1200 BPS dovrebbe venire 
a costare dai 250 ai 400 dollari. Le 
previsioni per il mercato italiano non 
dovrebbero di scostarsi di molto dal- 
l’equivalente di questi prezzi, tenendo 
conto tuttavia del fatto che da noi si 
deve ancora sviluppare la concorrenza 
tra molte aziende in questo settore a 
livello amatoriale. 

Vediamo ora, a grandi linee, come fun- 


Il modem, 

questo 

sconosciuto 



ziona la trasmissione di dati via modem: 
per prima cosa il vostro software di co- 
municazione invia il carattere ad un ap- 
parato chiamato UART (Universal 
Asynchronous Recai ver Transmìtter) - 
il VIC 20 ed il C64 non possiedono un 
UART, ma utilizzano del software su 
ROM per emularlo - che divide il byte 
dì otto bit, da cui è costituito il caratte- 
re, in un flusso seriale di otto bit sequen- 
ziali, quindi aggiunge a questi ultimi al- 
cuni bit speciali. [ bit di start e di stop 
vengono aggiunti rispettivamente a [l'ini- 
zio ed alla fine della sequenza di bit, 
mentre il bit di parità serve per control 
lare la presenza o meno di errori nella 
trasmissione. Esistono due diversi siste- 
mi di verifica degli errori e, come molti 
altri fattori nelle telecomunicazioni, non 
è particolarmente importante che tipo 
di parità venga usato, ma piuttosto che 
sia l'apparato ricevente che quello tra- 
smittente siano regolati sullo stesso tipo 
di parità. 

Tutti questi bit sono inviati al modem, 
che lì converte dalla loro forma digitale 
In suoni analogici che possono venire 
trasmessi da un apparecchio telefonico. 
Un suono di una certa frequenza rap- 
presenta uno 0 binario, mentre un suo- 
no di un'altra frequenza rappresenta un 
1 binario. Seguendo lo standard Bell 
103 per II protoco/lo di comunicazione 
tra modem, ognuna di queste frequenze 
deve essere compresa In un intervallo 
specificato e determinato dalla circo- 
stanza che II vostro modem sia regolato 
su trasmissione o ricezione. Se i due 
modem collegati sono regolati in modo 
/uff duplex, i caratteri vengono ritra- 
smessi al mittente dopo essere stati ri- 
cevuti. Questi caratteri di “eco" sono 
quindi visualizzati sullo schermo del mit- 
tente. Se il modo di regolazione è haìf 
duplex, i caratteri inviati sono visualiz- 
zati automaticamente sullo schermo del 
mittente prima di essere trasmessi, ma 
la comunicazione avviene “a senso uni- 
co cioè senza eco. Come si vede, il 
vantaggio del full duplex è la possibilità 
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di controllare istantaneamente se la tra- 
smissione è avvenuta con successo. 
Come le comunicazioni tra gli esseri 
umani richiedono un linguaggio comu- 
ne, così anche per i computer deve es- 
sere usato lo stesso linguaggio tra il rice- 
vente ed il trasmittente. L'ASCU {Ame- 
rican Standard Code for Information In- 
tercìda nge) è lì codice standard di rap- 
presentazione di ogni lettera, numero, 
segno dì interpunzione o carattere di 
controllo, 1 computer Commodore usa- 
no una versione modificata dello stan- 
dard ASCII e quindi, per accedere a 
sistemi di informazione standard, occor- 
re usare un programma di comunicazio- 
ne che traduca in ASCII la codifica 
Commodore, Anche con l'uso dì questi 
programmi possono esistere delle in- 
compabìlìta con sistemi che usano la co- 
difica ASCII standard. Ad esempio, 
molti bollettini di informazione offrono 
un’opzione per un linefeed entra con 
ogni carattere dì Return; se il vostro 
programma di comunicazione compren- 
de un line feed (movimento del cursore 
verso il basso di una linea) per ogni ca- 
rattere di Return, non avrete bisogno di 
questa opzione. Altri caratteri possono 
provocare altri problemi. Il carattere di 
Deiete, ad esempio, che è usualmente 
il CHR$(I27}, può essere il CHR$(20) 
o addirittura un altro carattere in altri 
sistemi. Un buon programma di comuni- 
cazione permette di modificare i carat- 
teri inviati e ricevuti, in modo che possa- 
no essere correttamente interpretati dal 
computer con il quale state dialogan- 
do. 

Spesso, per migliorare l affidabilità del- 
ie comunicazioni, viene aggiunto un 
checksum ad ogni blocco dì dati tra- 
smesso, Questo checksum indica se 
qualche bit è andato perso durante la 
trasmissione e, se questo caso si è verifi- 
cato, il blocco di dati viene re-inviato, 
ed il procedimento si ripete fino a che 
{'Intero file sia stato trasmesso con pie- 
no successo. I due computer in collega- 
mento compiono automaticamente tut- 
te queste operazioni: la comunicazione 
tra due computer senza l' in ter vento 
umano e detta hondshokfng. In questo 
caso l’handshakìng consente ad ogni 
computer di sapere se ogni blocco di 
dati è stato trasmesso e ricevuto corret- 
tamente. 

Ritorneremo spesso sull’argomento mo- 
dem e comunicazioni tra computer, ri- 
promettendoci inoltre di pubblicare un 
completo programma in linguaggio 
macchina per la gestione delle teleco- 
municazioni con il VIC 20 ed il C64, 
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MLX per VIC 20 
e C64 


di C. Brannon 

trad. e adatf. 

dì M, Crfatulb Grlzxt 

(versione 2*0 per C64) <? f. sitila 


M LX è un programma che permette 
di inserire listati frt linguaggio mac- 
china esenti in modo assoluto da errori e 
senza la perdita dì tempo del dover batte- 
re e controllare lunghe sequenze di istm 
zionì DATA. 

Molti del nostri listati di programmi in 
linguaggio macchina hanno il formato 
MLX (lì riconoscete dal fatto che sono 
esclusivamente numerici) e richiedono 
quindi che MLX sia caricato In memoria 
ed eseguito prima della battitura del lista- 
to. 

MLX vi chiederà F indirizzo della locazio- 
ne di partenza e quello della locazione 
finale del programma da caricare. Questi 
valori sono sempre indicati nell’artìcolo 
che accompagna il listato, MLX vi segna- 
la automaticamente gli errori di battitura 
MENTRE STATE DIGITANDO IL LI- 
STATO e Vi chiede di reinserire la linea 
errata. L’ultimo numero battuto di ogni 


linea rappresenta il check sum e viene vi- 
sualizzato in reverse. 

Sono inoltre disponibili altri comandi, quali: 
SH1FT-N nuovo indirizzo: permette di 
cambiare l’indirizzo della linea che volete 
battere ed è utile nel caso si inseriscano 
i listati in più parti, 

SHIFT D display: lista i dati inseriti tra 
due indirizzi di inizio e fine. 

SHIFT-L load: carica un file da nastro o 
SHIFT-S save: salva su nastro o disco un 
file in formato MLX, 

Una volta battuto il listato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente il programma con un’istruzione 
LOAD “nome del file*,!,! per il registra- 
tore, oppure LOAD ''nome del file" ,8,1 
per l’unità a dischi, salvo diverse indica- 
zioni date negli artìcoli corrispondenti ai 
vari programmi. Il programma sarà gene 
Talmente mandato in esecuzione con una 
SYS (indirizzo di partenza). 


MLX versione per VIC 20 


La versione originaria di MLX per C64 
ha subito, dalla prima pubblicazione, di- 
versi ritocchi e miglioramenti, fino alla 
versione 2,0 qui presentata, 

È stato in primo luogo modificato il colore 
dì fondo dello schermo e del bordo, in 
modo da risultare meno stancante alla 
vista; sono state ulteriormente perfezio- 
nate le routine in linguaggio macchina di 
salvataggio e caricamento dei program 
mi; è cambiata la forma del cursore e, 
cosa piu importante, è stato aggiunto un 
tastlerino numerico per gli utenti che si 
trovano più a loro agio con una diversa 
disposizione dei tasti. 

Oltre a poter usare i soliti tasti numerici, 
sono stati ridefiniti alcuni tasti alfabetici, 
in modo da generare ugualmente dei nu- 
meri. I tasti ridefiniti sono i seguenti: 

U I O 7 8 9 

H JKL diventano 0 4 5 6 

M, . 123 

Le persone abituate ad usare tali tastierl- 
ni accresceranno senz'altro, in brevissimo 
tempo, la velocità di battitura del pro- 
grammi in linguaggio macchina. 


1 00 PRINT" {CLR} { PUR) 11 ; GHR$ fi 4 2) ;CHR$ (8) ; 

;rem 181 

107 PO KE 7 8 8 / 1 9 4 : REM DISABILITA RUN/STOP 

: rem 1 4 4 

110 PRINT' 1 {RVS }{ 14 SPASI } " : rem 117 

120 PRINT' 1 (RVS) {DES}{OFF }[<*>] £{RVS} 

{ DES } {DESÌI 2 SPAZI) [<*>I {OFF) [<*>] 
£{RVS}£{RVS) " : rem 1 91 

130 PRINT t, TRVS} {DES} [<G>]{DES} 

{ 2 DES) {QFF}£{RVS}£[<*>] {OFF} [<*>] 

{ RVS } {OFF}" :rem 122 

140 PRINT" {RVS }{ 7 4 SPAZI}' 1 :rem 120 

200 FRI NT" { 2 GIU 1 H PUR] ( BLK }UN PROGRAMMA 
PER L 1 IN-TRODUZIONE { 2 SPAZI )DI ROUT 
I ME IN LINGUAGGIO MACCHINA 1 '; :rem 202 
20 5 PRINT' 1 A PROVA DI ERRORE { 5 GIU 1 }" 

; rem 2 26 

210 PRINT" {BLK} { 4 SU} INDI RI ZZO DI PARTEN 
ZA" ; INFUTS : F=1 -F : C$=CHR$ {31+1 1 9*F) 

:rem 52 

220 I F S< 2 5 60R5 > 327 6 7THENGOSU B 3 0 0 0 : GOTO 210 

:rem 2 

22 5 FRI NT :PRINT: PRINT SPRINT :rem 1 23 

230 PRINT" {BLK} { 3 SU} INDIRIZZO CONCLUSIV 
0" : INPUTE: F-T ~F:C$=CHR$ (31 + 7 7 9*F) 

:rem 170 

240 I FE< 2 5 60RE > 3 2 7 6 7THENGQSU B 3 0 0 0 : GOTO 230 

:rem 234 

250 IFE<STHENPRXNTC$;" {RVS} INDIRIZZO CON C 
LUSIVO < INDIRIZZO DI PARTENZA 
[ 3 GIU* } " : GOSUB 1 0 0 0 : GOTO 2 3 0 : rem 27 

260 PRINT: PRINT: PRINT : rem 7 79 

300 PRINT" {CLR}" ;CHR? (14) :AD=S :rem 56 
370 FRINTRIGHT$ ("G0QQ"+MID$ (STRS (AD) f 2) # 5 



j - il* ; FORJ-1 T06 

: r e m 

234 

320 

GOSUB570 : 1 FN=- 1 THENJ S J+N : GOTO320 

: rem 

228 

390 

I FN S - 21 1THEN71 0 

: r em 

62 

400 

I EN = - 20 4THEN7 90 

: rem 

64 

410 

IFN=- 206 THEN PRINT : PR I NT" 

(GIU' } I NSERIS 


CI UN NUOVO { 4 SPAZI JlNDIRI ZZO" ; : INFU 
TZZ :rem 42 


41 5 IFN=-206THENIFZZCSORZZ>ETHENPRINT" 

{ RVS } ESC E DAL CAMPO DI VA- " : rem 150 

416 IFN = -2Q6THENIFZZ<SORZ2>ETHENPRINT , ' 
{RVS} LORI INDICATO" : GOSUB 1 000 : GOTO 4 1 0 

:rem 705 

417 IFN=-206THENAD=ZZ: PRINT: GOTO310 

:rem 238 

420 IFNO-7 96THEN480 :rem 7 33 

430 PRINT: INPUT" LISTATO: DA" ;F; PRINT," 

{ 2 SIN} A" ; SINPUTT i rem 29 

440 IFF<SORF>EORT<SORT>ETHENPRINT"MINIMO" 
; S; " (SIN) , MASSIMO" ;E:GOTO430 

:rem 36 

450 FORI s FTOTSTE P 6 : PRINT : PRINTRIGHT$ (" 000 



0"+MID$ (STR$ (I) ,2) ,5) ; 

: rem 

30 

455 

FORK= QTOS : N-PEEK { I+K) : 

I F K= 3THEN PR I NTS 


PC (1 0 } ; 

: rem 

34 

457 

PRINTRIGHT? £"00"4-MID$ £5TR$ (N) # 2) , 

3} 


*1 t 

r i 

: rem 

1 57 

460 

GET A$ : I FA$ > " " THENPRI NT 

: PRINT: GOTO370 



: rem 

25 

470 

NEXTK : PRINTCHRS £20} ; : NEXT I ; PRINT : 

PRIN 


T : GOTO 3 1 0 

: rem 

50 

480 

I FN< OTHEN PRINT: GOTO 3 1 0 

: rem 

168 

49 0 

A ( J ) =N : NEXTJ 

: rem 

199 

500 

CKSUM“AD- INT (AD/256) *256: FORI =1 T06 : CK 


SUM- (CKSUM+A ( I ) ) AND 255 

: NEXT :rem 

200 

51 0 

PRINTCHR5 (1 8} ; :GOSUB570: PRINTCHR6 (20) 



: rem 

234 

57 5 

IFN-CKSUHTHEN530 

: rem 

255 

520 

PRINT: PRI NT"LA RIGA E T 

STATA INSE 

-RIT 


A IN MANIERA ERRATA" 

:rem 

39 

52 5 

PRINT"RI- INSERIRLA" : PRINT: GOSUB7 000 :G 


OTO370 

: rem 

1 67 

530 

GOSUB2000 

: rem 

21 8 

540 

FORI = 7 TO 6 : FOKE AD + 1-7 ,A(I) : NEXT 




: rem 

80 

550 

AD-AD+6: IFAD<ETHEN31 0 

: rem 

212 

560 

GOTO 71 0 

: rem 

7 08 

570 

N=0 : Z S Q 

: rem 

88 
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580 

PRINT" [<+>]"; 

trem 

79 

sai 

GETA$ S IFAS ” rt " THEN58 1 

: r em 

95 

585 

PRI NTCHRS (20);: A “ASC ( A$ } : I F A 

= 1 30RA = 4 4 


ORA = 3 2THEN 6 7 0 

srem 

229 

590 

I FA > 7 2 8THENN=- A : RETURN 

: rem 

137 

600 

I F A< > 2 OTHEN 630 

srem 

10 

610 

COSO B 6 9 0 : 1 FI =1 ANDT= 4 4THENN = * 

1 : PRINT" 


{SIN} {SIN}"; :GOTO690 

; rem 

172 

620 

GOTO570 

:rem 

1 09 

630 

I FA< 4 GORA > 5 7 THEN 580 

: rem 

105 

640 

PRINTAS; : N-N* 1 0+A- 48 

: rem 

106 

650 

I FN> 25 5THENA=20 : GOSUBl 000 : GOTOSOO 




: rem 

229 

660 

Z^Z + 1 : IFZOTHEN580 

: rem 

71 

670 

I F Z = OTHENGO SUB 1 0 0 0 : GOTO 5 7 0 

; rem 

114 

680 

PRINT" jr " ; : RETURN 

: rem 

240 

690 

S%-PBE(C ( 209 ) +256* PEEK (210) +PEEK (211 ) 



: rem 

149 

692 

FORI =1 T03 : T-PEEK (S%- I ) 

: rem 

68 


695 I FT< > 4 4 ANDT< > 58THENPOKES % 1 , 3 2 : NEXT 

:rem 205 

70 0 FRINTLEFT$ (" { 3 SIN } ",I - 1 );: RETURN 

: rem 7 

710 PRI NT" { CLR } { RVS } * * * SAVE *** 

{ 3 GIU , ) m : rem 236 

720 INPUT" {GIU 1 } NOME DEL FILR";F5 

:rein 199 

730 PRINT: PRI NT" { 2 GIU 1 H RVS } N ( OFF } ASTRO 
0 {RVS }D {OFFUSCO: (N/D) " i rem 128 

74 0 GET h$ 1 1 F AS < > " N" AND AS < > " D " THEN 74 0 

srem 30 

750 OV-1-7* (A$ = ri D n ) : I FD V= 8THENF$ = 11 0 s " +F$ 

:rem 1 58 

760 T$ = F$ : ZK=PEEK (53) + 256* PEEK ( 54 ) -LEK (T$ 
) :POKE782,ZK/256 ;r©m 3 

762 POKE78Ì r 2K-PEEK (782) *256: POKE780 , LEN ( 
TS) :SYS65469 : rem 109 

76 3 POKE780 , 1 SPQKE781 , DV: PGKE782 , 1 :SYS654 
66 :rem 69 

765 POKE254, S/256: PQKE2 53 , S- PEEK ( 254) *256 

: POKE78Q ,2 53 : rem 12 

766 POKE78 2 r E/256 : POKE78 1 /E-PEEK (782) *256 

: SYS654 96 srem 124 

770 I F { PEEK (783) AND 1 ) OR (ST ANDT 91 ) THEN7BG 

: rem 1 1 1 


775 PRINT" (GIU 1 } OPERA ZI ONE CONCLUSA* " : END 

:rem 152 

780 PRINT" {GIU * } ERRORE DI REGISTRAZ IG-NE . 
RIPROVA*" : IFDV=1THEN720 : rem 8 


781 

OPEN! 5,8, 15: INPUT# 15, ElS 

, E2$ : PR I NTE1 $ 


; E2$ :CLOSEl 5: GOTO720 

: rem 

103 

782 

GOTO720 

: rem 

115 

790 

PRINT" {CLR] {RVS}*** LO AD 

** * 



{ 2 GIU* ]" 

: rem 

212 

800 

INPUT" { 2 GIU 1 } NOME DEL 

FILE" ;F$ 




; rem 

.215 


810 PRINT: PRINT" { 2 , GIU 1 } { RVS }N (OFF ] ASTRO 
O {RVS } D {OFF } ISCO : (N/D)" : rem 127 

82 0 GETA$ S I F A$ < > " M" ANDAS < > " D " TH EN 8 2 0 

:rem 28 

8 3 0 DV™ 1 - 7 * ( A $ = " D" ) : I FD V” 8TH ENF$= 11 0 : " +F $ 

: rem 157 

8 40 T$=FS S ZR = PEEK t 53 ) +256*PEEK { 54 ) -LEN (T? 

) :POKE782,ZK/256 :rem 2 

841 POKE781 , ZK-PEEK { 7 82 } * 2 56 s POKE78Q , LEN ( 
TS) : SYS6 546 9 :rem 107 

845 POKE780 f 1 ;POKE781 ,DV: POKE7B2, 1 :SYS654 
66 : rem 70 

850 POKE780,0: SYS6 54 9 3 : rem 11 

860 IF £ PEEK (783) AND 1 ) OR (ST AND 1 9 1) THENtì 70 

; rem 1 1 1 

865 PRINT" {GIÙ* } OPERAZIONE CONCLUSA * 11 : GOT 
0310 srem 142 

870 PRINT" {GIU 1 J ERRORE DI CARICAMENTO -RI P 
ROVA. {GIU 1 } " ; I FDV- 1 THEN 800 : rem 43 

880 OPEN 15,8,1 5:1 N PUTII 5,El$,E2$: PRINTEl $ 
; E2S :CLOSEÌ 5 : GOTOSOO : rem 102 

1000 REM CICALINO ì rem 231 

1001 POKE36878, 1 5 : POKE36 874 , 1 90 :rem 206 

1002 FO RW * 1 TO 3 0 0 : NEXTW ;rem 117 

10 03 POKE3687 8 , 0 : POKE368 74 f 0 : RETURN 

:rem 74 

2000 REM CAMPANELLO :rem 130 

2001 FORW^l 5TOOSTEP-1 : POKE36 87 8 , W: POKE368 

76,240; NEXTW :rem 2 2 

200 2 POKE36 876,0: RETURN :rem ì 1 9 

3000 PRI NTC $ ; 11 { RVS } NON IN PAGINA ZERO O 
{ 2 SPAZI] SU ROM { 4 GIU 1 ]" : GOTO 1 000 

srem 23 


MLX versione 2.0 per C64 

1 00 PRINT" {CLR] {CYN } " ; CHR$ (14 2) ;CHR? (8) ; : 

POKE 53280,0: POKE 5 3 281 , 0 :rem 71 

101 POKE 78 8, 52 : REM DISABILITA RUN/STOP 

: r em 89 

110 PRINT" { RVS }{ 40 SPAZI}"; : rem 176 
120 PRINT" { RVS H 15 SPAZI} (DES) {OFF} [<*>] 
2(RVS}{DES] (DES ) { 2 5PAZ I }[ < * > } f OFF } 
T<*>HfRVS]2{RVS] { 13 SPAZI]"; 

srem 250 

130 PRINT" {RVS] { 15 SPAZI} {DES] [<N>] [<H>] 
{DES} { 2 DES} {OFF} "{RVS} “[<*>1 (OFF) 

[<*>HrvsH 13 spaziT"; w srem 220 

140 PRINT" { RVS }{ 40 SPAZI}" : rem 120 

200 PRINT"{ 2 GIU* } {PUR]EDlTOR DI CODICE 
MACCHINA VERSIONE 2*Q{ 3 GIU 1 }" 

: rem 126 

210 PRINT" [< 5> ] { 2 SU} INDIRIZZO DI PARTE 
NZA{ 2 SPAZI}"; : INPUTS : F= 1 -F :C$-CHRS { 
31+11 9*F) srem 85 

220 I FS < 2 5 SOR ( S > 4 0 9 6 0 ANDS <491 52) ORS> 53247 
THENGGSUB3000 : GOTO 21 0 :rem 235 

22 5 PRINT : PRINT : PRINT : rem 180 


230 PRINT" [ < 5> 1 { 2 SU} INDIRIZZO CONCLUSI 
VQ{ 3 SPAZI}" ; : INFUTE : F= UF :C$ “CHR$ {3 
1+1 1 9*F ) srem 92 

240 X FE < 2 5 60R ( E> 4 0 9 6 0 ANDE <491 52)ORE>5324? 

THENGOSUB3QOO : GOTO 2 30 :rem 183 

2 50 IFE<STHENPRINTC$ ; " {RVS ] INDI RI ZZO CONO 
LUS IV0< INDI RI ZZO INIZIALE" : rem 200 
2 55 IFE<STHENGOSUBl 000 : GOT02 30 :rem 119 
260 PRINT: PRI NT: PRINT ; rem 179 

300 PRINT" {CLR} ";CHR$ (14) : AD=S : POKE V+ 21 r 0 

:rem 225 

310 A*1 :PRINTRIGKT? {"0000"+MID5 (STR$ (AD) , 
2) , 5) ; :F0RJ=AT06 : rem 227 

315 FORJ^ATOC srem 33 

320 GOSUB570 : IFN” - 1 THENJt=J+N : GOTO320 

srem 228 

390 IFN--21 1THEN71 0 : rem 62 

400 IFN=-2 Q4THEN7 90 ; rem 64 

410 I FN* - 2 0 6THENPRI NT i INPUT" {GIU* 3 I.NSERI 
RE IL NUOVO INDIRIZZO"; ZZ s rem 73 
414 IFN“-206THÉNIFZZ<SORZZ>ÉTHENPRINT" 

{RVS} ESCE DAL CAMPO DI VALORI INDICA? 

O" ; rem 105 
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415 IFN=-206THENIF2Z<SORZ2>ETHENGOSUBl 000 
: G0T04 1 0 :rem 202 

41 7 IFN^~206THENAD=ZZ SPRINT IG0T031 G 

:rem 238 

420 IFNO- 1 96THEN4 80 : rem 133 

4 30 P RI NT ; I N PUT "LISTATO : DA N ; F : P RI NT" 

{ 9 SPÀZI! A"? : INPUTT : rem 183 

44 0 I FF < SORF > EORT'CSORT > ETBBNP RI NT "MI NIMO u 
; S ; " MASSIMO" ;E;" I f < 5> 1 " : G0T04 30 

: rem 147 


4 50 FOR I = FTOTSTEP6 SPRINT: PRI NTRI GHT$ ("000 



0 ir +MID$ (STR$ ( I) ,2) ,5) ; 

: rem 

30 

451 

FORK-0TO5:N=PEEK(I+K) : PRI NTRI GHT$ ( 



"+M1 D$ (STR$ (N) ,2) ,3 } ; 

: rem 

66 

460 

GETA$ :IFA$> " "THENPRINT : PRINT 

:G0TO31 0 



irem 

25 

4 70 

NEXT K : PRINTCHR$ (2 0 ) ; : NEXTI : PRI NT s PRIN 


T : GOTO 3 1 0 

srem 

50 

480 

IFN< QTHENPRINT : GOT03 1 0 

srem 

168 

490 

A ( J) =N : NEXT J 

srem 

199 

500 

CKSUM-AD-INT (AD/2 56) * 256 : FORI = 1 T06 : CK 


SUM= (CKSUM+A £ I ) ) AND2 55 : NEXT 

s rem 

20 0 

51 0 

PRINTCHRS (18)5 : GOSUB5 70 : PRINTCHRS (146 


> ? 

srem 

94 

51 1 

I FN= - 1 THENA = 6 : GOT03 1 5 

srem 

254 

51 5 

FRINTCHR$ (20) s I FN-CKSUMTHEN5 3 0 




: rem 

1 22 

520 

PRINT: PRINT" {RED} LA LINEA E 1 

STATA 

IN 


SERITA IN MANIERA" 

: r em 

1 57 

525 

PRI NT "ERRATA. RIPETERE [< 5> ] " 

SPRINT 

: GO 


SURI 000 :GOT031 0 

;rem 

27 

530 

GOSUB2000 

srem 

218 

540 

FORI = 1 TQ6 : POKEAD+ 1 - 1 ,A(I) :NEXT:POKE54 


27 2,0: POKE 54273,0 

srem 

227 

550 

AD- AD+6 : 1 F AD< ETHEN3 1 0 

s rem 

21 2 

560 

GOTO? 1 0 

srem 

108 

570 

N=0 : Z=0 

s rem 

88 

580 

PRINT" [<~>1 

:rem 

81 

581 

GETA$ s I F A3 = " " THEN5 8 1 

: rem 

95 

582 

AV= - ( A$ = "M" ) - 2 * ( A$ " . " ) - 3 * ( AS = " . " ) 

-4* 


( A$ - " J 11 ) - 5 * ( AS = " K" ) - 6 * (À$ - "L 

H > 




s rem 

41 

583 

AV- AV- 7* (À$ - ”U" ) - 8* ( A$="I " ) - 

9 * ( A$ = 

"O" 


) : I FAS * "H " THENAS = 11 0 *' 

: rem 

134 

584 

IFAV>0THENAS =CHR$ ( 48+AV) 

: rem 

134 

585 

PRINTCHRS (20) ; ;A=ÀSC ( AS) : IFA 

-1 30RA 

l=44 


ORA- 32THEN6 70 

:rem 

229 

590 

IFA> 1 28THENN = -A : RETURN 

srem 

137 

600 

IFAO 20THEN63 0 

: rem 

10 

61 0 

GOS UB 690 S I FI = 1 ANDT= 4 4 THENN-- 

1 SPRINT" 


{SIN} {SIN} 11 ; : GOTO 6 90 

srem 

1 72 

620 

GOTO570 

srem 

109 

630 

I F A< 4 80RA> 57THEN5 8 0 

; rem 

1 05 

640 

FRI NT A $ ; :N-N*1 O+A-4 8 

s rem 

1 06 

650 

IF N > 2 5 5THENA s 20: GOS UB 1 000:GOTD600 




srem 

229 

660 

Z = Z + 1 : XFZ< 3THEN58Q 

: rem 

71 

670 

IFZ “0 THE NCOS UB 1000 :GOTO570 

: rem 

114 

680 

PRINT" f 11 ; : RETURN 

: rem 

240 

690 

Sì- PEE K ( 2 0 9 ) +2 56*PEEK (210) +PEEK (211 ) 



s rem 

149 

691 

FORI = 1 TO 3 s T^ PEEK ( S % - 1 ) 

: rem 

67 

695 

IFTO44ANDT<>5 8THENP0KES%-I , 

32: NEXT 



: rem 

205 

700 

PRINTLEFTS (" [ 3 SIN} " , 1-1 ) ; : 

RETURN 



srem 

7 

71 0 

FRI NT" {CLR} { RVS } * * * S AVE *** 



{ 3 GIU 1 }" 

srem 

236 


715 PRINT 1 * { 2 GIU 1 } PREMERE [RVS] RETURN 
{OFF} PER USCIRE DAL S AVE {GIU 1 }" 

: rem 103 


720 F$ = 11,1 : INPUT 11 {GIU* }NOME DEL FILE";F$:I 
FF$ = 11 "THENPRI NT : PRINT : GOT03 1 0 

' : rem 42 

730 PRINT: PRINT 11 { 2 GIU 1 }( RVS }N( OFF } ASTRO 
O { RVS }D {OFFUSCO: (N/D) " s rem 128 

74 0 GETAS : I F A$ < > "N M AND A$ < > 11 D "THEN74 0 

; rem 30 

750 DV= 1 - 7 * ( A$ = "D" ) : I FDV=8THENF$ = "0 : " + F$ : 

OPENl 5, 8,15, "S"+FS sCLOSEl 5 s rem 212 
760 TS=FS : ZK-PEEK ( 53) +256*PEEK ( 54) -LEN (T$ 
) :POKE782,2R/256 : rem 3 

762 POKE781 , ZK~ PEEK (782) *256: POKE780 , LEN ( 

T$ ) s S YS 6 5 4 6 9 : rem 109 

763 POKE780,! :POKE7Bl , DV s POKE782 , ì :SYS654 

66 ; rem 69 

76 5 K=S : POKE2 54 , K/ 2 56 : POKE 2 53 , K- PEEK (254) 
*256: POKE780 ,253 :rem 17 

766 K=E+ 1 : PORE7 82 , K/2 56 : POKE7 81 ,K-PEEK(7B 
2} *256:SY36S496 :rem 235 

770 I F ( PEEK (783) AND 1 ) OR (191 ANDS T ) THEN 7 8 0 

: r em 111 

775 FRI NT" { GIU 1 } FATTO, {GIU 1 } ";GOTG31 0 

:rem 201 

780 PRINT" {GIU 1 } ERRORE NEL S AVE -RI PROVA 1 11 

: IFDV- 1 THEN7 2 0 ~ : rem 104 

781 OPENl 5 , B , 1 5 : INPUT# 1 5 # El $ ,E2$ sPRlNTEl $ 

?E2$ :CLOSEl 5:G0T072Q :rem 103 

790 PRI NT " [ CLR ! ( RVS ! * * * LO AD *** 

{ 2 GIU 1 }" : r em 212 

795 FRI NT" { 2 GXUMPREMERE { RVS} RETURN 
{OFF} PER USCIRE DAL LOAD{GIU* } 11 

; rem 96 

80 0 F$ » " " : INPUT" { 2 GIU* } NOME DEL FILE" ; F 
$ :IFF$-""THENPRINTiGOT031 0 : rem 115 

810 PRINT : PRINT" { 2 GIU 1 H RVS} N{ OFF} ASTRO 
O £RV5}D{QFF}ISCOs f N/D) " : rem 127 

820 GETA$ :IFA$O ,, N"ANDA$<> 1l D"THEN820 

: rem 28 

830 DV=1-7* (A$ = "D") : IFDV=8THENF$ = ,, 0 : "+F$ 

: rem 157 

840 T$”F$ sZK-PEEK(53) +256 *PEEK ( 54 ) -LEN (T$ 

) :POKE7 82, ZK/2 56 : rem 2 

841 POKE781 , ZK-PEEK (782) *2 56 S POKE780 , LEN ( 

T$) : SYS 654 69 :rem 107 

845 POKE780 , 1 :POKE781 # DV : POKE? 82 , 1 :SYS654 
66 :rem 70 

850 POKE 780,0: SYS 65493 :rem lì 

860 IF (PEEK (783) AND! ) OR ( 1 9 1 ANDST) THEN870 

: r em 111 

865 PRINT" [GIU 1 } FATTO. "SGOTO310 srem 184 
870 PRINT" {GIU 1 ] ERRORE NEL LOAD-RIPETII 

(GIU 1 }" SlFDV-lTHEN&QQ :rem 19 

880 OPENl 5, 8, 1 S: INPUT# 1 5,E1 $ , E2 $ : PRINTEl $ 
; E 2 $ ; CLOS E 1 5 ; GOTO0 0 0 :rem 102 

1000 REM CICALINO : rem 231 

1001 POKE54296, 1 5 : PQKE542 77 , 4 5 : P0KE542 78 , 

165 :rem 207 

1002 POKE54276, 3 3 s POKE542 73 , 6 : POKE54 2 72 , 5 

:rem 42 

10 03 FORT= 1 TO200 :NEXT : PGKE542 76 * 3 2 : POKE 5 4 
2 73, 0 : POKE54 272 , 0 : RETURN s rem 202 

2 000 REM CAMPANELLO : rem 130 

2001 FGKE54296, 1 5 : POKE54277, 0:FOKE54278, 2 

4 7 : rem 1 52 

2002 FOKE54276, 1 7 : PGKE542 73 , 4 0 : POKE542 72 , 

0 : rem 86 

2003 FORT=lTOl 00 ; NEXT : POKE 5 4 276 , 1 6 : RETURN 

srem 57 

3000 PRINTC$?" IRVS] NON IN PAGINA ZERO O 
SU{DES]ROM "s GOTO! 000 S r em 24 0 
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Il Joystick 

Come acquisire i segnali 
provenienti dei joystick e 
simularne il funzionamento 
sulla tastiera: parte prima 

Buoni parte delle lettere che 
pervengono alla redattone di 
SU PERC0MM ODORE da parte di 
no atri lettori riguardano I due 
argomenti Indicati nel titolo: to- 
me "leggere” ì segnali prove- 
nienti dalle Control Fort riser- 
vate ai joystick e* da parte di co- 
loro che non possiedono joy- 
stick, come è possibile simular- 
ne Il hmzionamento tramite una 
serie di testi* 

P er rispondere a queste richieste dei 
nostri lettori abbiamo pensato di 
scrivere questo articolo, corredato da 
quattro programmi esplicativi (due ri- 
servati agli utenti del VIC e due agli 
utenti del C64}, in modo da affrontare 
l'argomento nella maniera più esaustiva 
possibile. 

L'articolo è suddiviso In quattro parti, 
ognuna delle quali, oltre ad affrontare 
uno specifico aspetto dell’ argomento in 
relazione ad uno dei due calcolatori pre- 
si in considerazione, commenta in ma- 
niera diffusa il listato del programma 
che correda ciascuna sezione dell'artì- 
colo* 

Suggeriremmo agii utenti di ciascuno 
dei due tipi di calcolatore di leggere an- 
che le parti riguardanti il calcolatore di 
cui non dispongono. Per quanto si sia 
cercato dì rendere ciascuna sezione in- 
dipendente dalle altre, infatti, abbiamo 
preferito non diffonderci In ripetizione 
di argomenti già affrontati In una delle 
altre parti, ad esempio commentando i 
programmi. 

Il controllo dei joystick 

sol C64 

Il C64 dispone di due interfacce di con- 
trollo dei joystick, le Control Fort # 1 
e # 2, sul lato destro del calcolatore, a 
fianco della presa del Cali montatore e 
deH'interruttore d'accensione. 

La lettura delle due interfacce avviene 
tramite una coppia di locazioni, ognuna 
delle quali è riservata In esclusiva al 
controllo di una delle due Port, La loca- 
zione 56321 controlla la Port # 1 T men- 
tre la 56320 controlla la Port 4 2, 


Come è noto, ciascuna locazione di me- 
moria del C64 è composta da 8 bit, 
ognuno dei quali è responsabile di uno 
dei cinque (sei nel caso in cui il pulsante 
di sparo del vostro joystick sia duplica- 
to) mie roln ter ruttori del joystick. In en- 
trambe le locazioni la configurazione è 
la seguente: 


Bit 7 6 5 4 3 2 1 0 

Peso 128 64 32 16 8 4 2 1 

Funzione -^-PEOSN 

l numeri da 0 a 7 indicano i bit delle 


due locazioni, mentre le lettere E, Q, S 
e*N indicano le quattro direzioni cardi 
nal; e la P il pulsante di sparo. 

Una delle caratteristiche più singolari 
dell’acquisizione dei segnali provenienti 
dai joystick è rappresentata dal fatto 
che essa avviene in “logica negativa". 
Ciò significa, biotto semplicemente, 
che, invece d! avere il bit corrisponden 
te ad un mìcroìnterrutore posto a 1 nel 
caso in cui quest'ultimo sia “chiuso", il 
segnale risulta invertito ed i bit corri 
sponde nti ai microinterr ultori attivati 
sono nulli, mentre gli altri sono posti ad 
uno. 
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Ciò non costituisce un problema parti- 
colarmente grave per quanto riguarda 
l'acquisizione dei segnale e semplifica 
notevolmente la gestione de [Finte ria c 
da da parte del calcolatore. 

Un'altra caratteristica distintiva della 
lettura dei joystick sul C64 è costituita 
dai settimo bit di ciascuna locazione. 
Nelle locazione 56320 (Control Port 
# 2) questo bit è sempre nullo, mentre 
nella 56321 (Control Port # 1) ha valo- 
re unitario. 

Ciò significa che, leggendo con una 
istruzione PEEKO ciascuna delle due lo- 
cazioni. il valore proveniente dalla pri- 
ma (56320) sarà sempre inferiore a 127 
(nella posizione di riposo in cui, non es- 
sendoci mkrointerrutori attivati, tutti i 
bit, tranne il più significativo - il bit 7 
- sono posti ad uno il valore suddetto 
è uguale a 127); mentre 11 valore prove- 
niente dalla seconda sarà sempre supe 
riore (al più uguale, ma. come vedremo, 
e un caso irrealizzabile in pratica) a 
128. 

Questo fatto ci può suggerire un primo 
modo di acquisire segnali da uno qual- 
siasi dei due joystick. Per semplificarne 
la gestione è innanzi tutto necessario 
applicare al valore Letto da una delle 
due locazioni L'operatore di comple- 
men turione NOT. Questo operatore lo- 
gico “complementa" il contenuto di cia- 
scun bit di un byte, sostituendo, cioè, 
ad ogni 1 uno 0 e viceversa; in questo 
modo il segnale del joystick viene con- 
vertito da * logica negativa" a “logica 
positiva". Per stabilire se una detenni 
nata locazione è attivata dovremo appli- 
care al risultato dell’operazione di com- 
plemen fazione l'operatore logico AND, 
congiuntamente al “peso" del bit che 
controlla la direzione che desideriamo 
rilevare (vale a dire la potenza di due 
corrispondente al bit). Per quanto que- 
sto discorso possa sembrarvi piuttosto 
complicato, e&sn è in realtà sintetizzabi- 
le in un programma piuttosto sempli- 
ce: 


*"10 P-PHEK (56321) ;P« NOTP 
-"20 IFPANDlTHEN... : REM NORD 
*"30 IFPAND2THEN, , : REM SUD 
"*40 IFPAND4THEN,.. : REM OVEST 
***50 IFPAND8THEN.,. : REM EST 
*"60 IFPAND16THEN... : REM PULSAN- 
TE DI SPARO 


Il programma suindicato fa riferimento 
alla locazione responsabile del controllo 
della Port #1; per controllare la Port 
#2 è sufficiente sostituire, in ***10, il 
valore 56321 con 56320. 

In questo modo è possibile leggere i bit 
corrispondenti alle direzioni cardinali, 
oltre al pulsante dì sparo, e prendere 
quelle decisioni che conseguono dalla 
attivazione dei microinterruttori corri- 
spondenti del joystick. 

Possiamo però notare come l'acquisi- 
zione dei segnali rappresentanti le dire- 
zioni intermedie del joystick sta, in real- 
tà, sdoppiato secondo le proiezioni degli 


spostamenti stessi lungo le direzioni car 
dindi . In base all’ ordine relativo dei test 
delle righe da ***20 a *‘‘60 uno sposta- 
mento lungo una direzione intermedia 
verrà sempre considerato alla stessa 
stregua di uno spostamento lungo la so- 
la componente orizzontale o verticale 
dello spostamento stesso. 

Vediamo di spiegare ulteriormente il 
problema con un esempio pratico. 
Supponiamo di aver inserito il joystick 
nella Port # 1 e dì averlo spostato ver- 
so l’alto e verso destra: ì bit della Loca- 
zione 56321 assumeranno La seguente 
configurazione 

Bit 7 6 5 4 3 2 1 0 

P™ 128 64 32 16 8 4 2 1 

11110 110 

corrispondente appunto alla disattiva 
zione dei bit connessi con ì microinter- 
ruttori del joystick “NORD” (Il bit 0 di 
peso 1) e “EST” (il bit 3 di peso 8). 
Compierne alando il contenuto della lo- 
cazione suddetta (246), oppure sol 
traendone il valore da 255, otterremo 
la seguente configurazione in logica po- 
sitiva 



Bit 7 6 5 4 3 2 1 0 

Peso 128 64 32 16 8 4 2 1 

0 0 0 0 1 0 0 1 

Sommando i “pesi” delle locazioni atti 
vate si ottiene il valore di 8+1 “9; di 
questo valore - e di valori di analoga 
costruzione - ci serviremo in seguito 
per la effettiva lettura del joystick nel 
nostro programma dimostrativo; vedia- 
mo. però, come funziona il nostro sem- 
plice programma delle righe precedenti 
In riga ***20 l'operatore AND viene ap- 
plicato al valore numerico 1 ed al valore 
numerico letto dal joystick e compie 
mentalo. Dato che il bit di peso pari al 
valore numerico indicato è effettiva- 
mente attivato, nel nostro caso il risulta- 
to del test sarà positivo {o, come spesso 
si dice, sarà uguale a TRUE, sarà cioè 
verificato) ed il corso del programma 
verrà influenzato dalle decisioni relative 
agli spostamenti del joystick verso Fai 
io. Oò non ostacolerà necessariamente 
la correttezza della gestione del segna- 


le, Una volta prese le decisioni riguar- 
danti gli spostamenti verso l’alto si può 
infatti far tornare 11 programma alla riga 
successiva ("*30) a quella di controllo 
della direzione cardinale “NORD” e 
continuare la serie dei test per le altte 
direzioni. 

Supponiamo però che LI test preveda 
una diramazione verso altre parti del 
programma, senza rientro alle righe di 
esame del segnale del joystick; ecco che 
la compónente orizzontale dello sposta- 
mento viene persa definitivamente, È 
chiaro che riarrangiare la disposizione 
delle righe di test non cambierebbe la 
situazione. Invertendo, nel nostro caso, 
le righe ***20 e ***50 si avrebbe come 
unico risultato di diramare sulla compo- 
nente orizzontale dello spostamento 
(PAND8), perdendo così la componen- 
te verticale. 

È ovviamente possibile correggere que- 
sto difetto, in modo da evitare gli errori 
suddetti, anche se in alcuni casi la lettu- 
ra del joystick diverrebbe decisamente 
pesante in termini di tempo. In alcuni 
casi un slmile sistema di lettura può ad- 
dirittura rivelarsi conveniente. Suppo- 
niamo di voler gestire tramite un joy- 
stick gli spostamenti di un carattere sul- 
lo schermo, avendone definito un siste- 
ma di assi coordinati X e Y con origine 
nell’angolo superiore sinistro dello 
schermo. Tralasciando i controlli di cor- 
rettezza sui limiti di schermo, il pro- 
gramma di gestione, con il joystick inse- 
rito in Port # 1 , potrebbe essere il se- 
guente: 

10 POKE 1 024+ Y* 40+ ,32 : REM CAN- 
CELLA LA POSIZIONE PRECEDEN- 
TEMENTE 

11 REM OCCUPATA DAL CARAT- 
TERE 

20 P=PEEK (5632 1 ): P=N OTP 
30 IFP AND 1 THENY * Y - 1 
40 IFP AND2THEN Y * Y + 1 
50 I FP AND4TH EN X *X- 1 
60 IFPAND8THENX-X+1 

70 POKE1024+Y*40+X,CH;REM CH 
- NUMERO DI POKE DEL CARATTE- 
RE CHE 

71 REM SI DESIDERA VISUALIZZA- 
RE 

80 GOTO IO 

Nel programma precedente alla variabi- 
le X sono associati gli spostamenti oriz- 
zontali del carattere ed alla Y gli sposta- 
menti verticali. Non essendo possibile 
(a meno di non smontare il joystick) pre- 
mere contemporaneamente più di due 
m icroìnt eirut to ri (pulsante di sparo 
escluso), Faggio momento delle variabili 
X e Y permetterà di ottenere corretta- 
mente anche gli spostamenti lungo le 
direzioni intermedie. 

Esistono, comunque, anche metodi più 
eleganti per gestire il segnale prove- 
niente dai joystick. Per dame una dimo- 
strazione esauriente abbiamo realizzato 
il Programma L 

Dopo averlo copiato, ed averne regi- 
strato una copia, è sufficiente una sem- 
plice istruzione RUN per mandarlo rn 


£2 5UMJlCOW‘IOOOftE* 2/SS 



Il Joystick 


esecuzione. Lo schermo* cornice com 
presa* diverrà grigio; quindi 11 program 
ma sembrerà per qualche attimo arre- 
starsi, In effetti esso leggerà ì valori nu- 
merici contenuti nelle frasi DATA delle 
righe 470-780 e li inserirà in memoria 
per definire la forma degli spille utiliz 
rati nel programma. 

Terminata questa operazione di trasfe 
rimento sullo schermo comparirà un 
menu composto da tre voci, la terza 
delle quali (Pori 1 & 2) verrà visualizza- 
ta in rosso. Le tre voci suddette rappre- 
sentano le opzioni offerte dal program- 
ma circa la fettura dei joystick. 

È sufficiente spostare il joystick verso 
l'alto o il basso per passare dalla opzio- 
ne attivata a quella adiacente nella dire- 
zione dello spostamento. L'opzione atti- 
vata verrà sempre visualizzata in rosso 
e la prima e la terza voce del menu 
verranno considerate adiacenti, per cui 
spostando il joystick verso IJ basso men- 
tre la terza opzione è attivata si passerà 
alla prima e, analogamente, dalla prima 
opzione attivata si passerà alla terza 
spostando il joystick verso l'atto. 

Per poter gestire il menu è sufficiente 
inserire il joystick in una qualsiasi delle 
due Control Pori, dal momento che il 
programma le legge entrambe per ac- 
quisire Je vostre scelte. 

Una volta che vi siete posizionati sul 
l'opzione voluta premete il pulsante di 
sparo. Lo schermo verrà cancellato e 
sulla parte superiore di esso verranno 
visualizzate quattro caselle, contraddi- 
stinte, da sinistra a destra, dalle scritte 
"P", “J$\ * Lettura in" e "Direzione", 
rispettivamente in blu, verde, nero e 
rosso. La prima casella conterrà il valo- 
re numerico corrispondente alla posizio- 
ne di riposo per la Control Fort da cui 
viene acquisito il segnale, indicato nella 
terza casella. 

Nella parte centrale dello schermo ver- 
rà visualizzata una bussola schematizza 
ta, indicante le quattro direzioni cardi- 
nali e le quattro direzioni intermedie 
principali, 

A questo punto, supponendo che abbia- 
te inserito il joystick nella Pori corri- 
spondente alla opzione del menu da voi 
selezionata, spostando il joystick in una 
qualsiasi direzione vedrete apparire 
una freccia nera indicante ta direzione 
attivata. Contemporaneamente la scrit- 
ta corrispondente della "bussola" verrà 
visualizzata in rosso per evidenziarla ed 
il contenuto delle caselle “P", “J5" e 
“Direzione", nella parte superiore dello 
schermo, verrà aggiornato 
Tenendo il joystick in posizione di ripo- 
so la freccia rimarrà puntata nell 'ultima 
direzione attivata e, premendo il pul- 
sante di sparo, sarà possibile cambiarne 


iJ colore. Il programma contiene un ciclo 
di ritardo, in modo che il passaggio da 
un colore all'altro non sia troppo rapido 
e, ovviamente, il colore contraddistinto 
dal valore numerico 15 (Grigio chiaro} 
viene escluso dalla serie, dal momento 
che non sarebbe visibile sullo schermo 
dello stesso colore; pertanto, dall' azzur- 
ro chiaro (14) si riprende la serie pas- 
sando al nero (0} r 

Per interrompere il programma è neces- 
sario premere RUN-STOP o RUN- 
5TOP/RESTORE, Dopo averlo fatto 
mandiamo nuovamente in esecuzione il 
programma con un comando RUN, No- 
terete come, questa volta, il menu com 
paia più rapidamente. Il fatto di aver 
interrotto il programma, infatti, non 
cancella le locazioni contenenti la forma 
degli sprìte ed il programma, eseguen- 
do un semplice test su una di queste 
locazioni, evita di ricaricare la serie di 
dati. Provate ad attivare la terza opzio- 
ne del menu. Dopo aver premuto il pul- 
sante di sparo comparirà la solita “bus 
sola" corredata dalle quattro “caselle", 
in questo caso, però, spostando il joy- 
stick, nella parte inferiore dello scher- 
mo comparirà una scritta indicante in 
quale Control Fort viene effettuata la 
lettura. Utilizzando due joystick, o spo- 
standone uno tra le due Pori, è anche 
possibile rilevare la differenza esistente 
tra i valori di P letti nelie rispettive loca- 
zioni. 

Il formato dì lettura adottato dal prò 
gramma è il seguente: 

P - PEEK (Locazione); J5 = 15 - 
(PANO 15); FR = PANO 16 

Questo formato permette di eseguire 
test su FR, per stabilire se il pulsante 
di sparo è stato premuto (test positivo 
se FR ^ ) 16) e di avere valori numerici 
compresi tra 0 e 10 per JS (valori indi- 
cati nella casella corrispondente del 
programma). 

Vediamo come vengono ottenuti ì valori 
suddetti per JS, Al contenuto della va- 
riabile P (letto in una delle due locazio- 
ni) viene applicato l'operatore AND 15. 
il valore numerico “quìndici" rappre- 
senta, in formato binario, una “masche- 
ra", che consente di selezionare solo il 
contenuto dei primi quattro bit della lo- 
cazione, quelli contenenti Fin formazio- 
ne riguardante gli spostamenti, trala- 
sciando il resto; è per questa ragione 
che occorre gestire separatamente H 
pulsante di sparo. 

I! valore cost ottenuto viene sottratto da 
15 per compì «meritarlo, ottenendo va- 
lori numerici in “logica positiva''. I valori 
numerici così ottenuti sono uguali ai pe- 
si corrispondenti ai bit connessi con i 


mlcrolnterruttorl attivati. Se JS, quindi* 
vale 1, significa che il joystick è stato 
spostato verso Fallo, se vale 4, che lo 
spostamento è avvenuto verso sinistra. 
Le direzioni intermedie sono indicate 
dalla somma dei pesi degli spostamenti 
in direzione orizzontale e verticale; per- 
ciò uno spostamento del joystick verso 
Fatto e verso sinistra dà un valore dì JS 
pari a 1+4-5. In pratica, non si fa altro 
che leggere la configurazione binaria 
dei primi quattro bit complementari del 
la locazione dì controllo, ottenendo va- 
lori numerici compresi tra 0 e 15 (indi- 
pendentemente da quale locazione vie- 
ne letta J; più pratici da utilizzare come 
indici di matrici dei valori dì P, In realtà, 
però, alcuni dei valori numerici suddetti 
non sono ammissibili. Il minore dì questi 
valori “illegali" è 3, che corrispondereb- 
be alla somma di 2 e 1, cioè alla compo- 
sizione dei due spostamenti opposti lun- 
go la verticale; poiché la contempora- 
nea attivazione dei due mlcrointerrutto- 
ri “NORD" e "SUD" è impossibile (a 
meno di non smontare il joystick, cosa 
che abbiamo fatto approfittando della 
fragilità dei joystick Commodore), una 
simile configurazione non si verificherà 
mai, in pratica. Altre configurazioni ille- 
gali sono la 01 1 1**7, pari a 4+2+1 (cioè 
contemporanea pressione dei microin- 
terruttori “NORD", “SUD" e 
“OVEST") e tutte quelle da 11 a 15. 
Per concludere questa sezione com- 
mentiamo brevemente il listato del Pro- 
gramma 1. 

Kilt CoBBcnto 

10 Dimensionamento dei vettori 

di controllo del cursore di 
schermo - W$(25) - e della 
matrice dei dati della “busso- 
la" — SP(10,2), che contiene 
le coordinate dei punti in cui 
far apparire le scritte e gli in- 
dirizzi degli iprite corrispon- 
denti ad ogni direzione e 
SP$( 10), che contiene le scrit- 
te da visualizzare 

20 Lettura dei dati da inserire 
nelle matrici suddette. 

30 Scelta del colore dì schermo 
e della cornice ed iniziai izza- 
rione della variabile di base 
per i registri di controllo degli 
sprite. 

40 Viene attivato il formato "Ma- 
iuscolo/ minuscolo" e viene 
compiuto un semplice test sul 
contenuto di una delle loca- 
zioni destinate a contenere i 
dati di definizione degli sprìte, 
per stabilire se sia il caso di in- 
serirli. 
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REM:KW 


I 

Lettura dei dati degli sprite. 280 
Visualizzazione del contenuto 
del menu. 

L'opzione attivata viene vi- 
sua lizzata in rosso; l'opzione 
precedentemente attivata 
viene “ricoperta" in nero. 

Vengono acquisiti ì valori di 
entrambe le locazioni di con- 
frollo dei joystick. Se uno dei 
due pulsanti di sparo è stato 
premuto, si passa alia parte 
principale del programma. 

Se i valori numerici lettt corri’ 
spondono a spostamenti di 
uno dei due joystick verso 290 

I‘ alt Oh viene aggiornato il valo- 
re della variabile indicante 
Topzione precedentemente 300 

attivata, l'indice corrispon 
dente alla opzione attua Imen 
te attivata viene decrementa- 
to e viene compiuto un test 
per consentire che lo scorri* 
mento del menu si richiuda 
circolarmente. 

Analoga alla riga precedente. 

In questo caso il test viene 
compiuto su spostamenti del 
joystick verso il basso e gli ag- 
giornamenti di conseguenza, 310 
Si ricicla per acquisire un nuo 
vo spostamento o la pressio- 
ne del pulsante di sparo, che 
consenta di interrompere il ci- 
clo. 320 

Viene visualizzato il comples- 
so della dimostrazione. In par- 
ticolare, in riga 200, viene 
eseguito un test per saltare 
delle parti delle matrici SF0 
e SP$(), corrispondenti a va- 
lori illegali della variabile JS, 

Se T opzione scelta prevede la 
lettura in entrambe le Control 
Pori (NS=3), il programma si 
dirama verso una sezione op 350 
pori una. 

Viene acquisito il segnale pro- 
veniente dal joystick corri- 
spondente alla locazione as- 
sociata alla Control Pori pre- 
scelta (M(NS,0)). Nel caso in 360 
cui il pulsante di sparo sia sta- 
to premuto si richiama il sot- 
toprogramma, che consente 
di cambiare il colore dello 
sprite, e si ricicla. 

Viene posizionato lo sprite 0. 
Vengono attivate le locazioni 370 
che consentono di espandere 
lo sprite 0 sia verticalmente 
che orizzontalmente e viene 380 
inserito il codice colore nella 
locazione apposita corrispon- 390 
dente allo sprite suddetto. 


La locazione contenente l P in- 
dirizzo di base della serie di 
dati che definiscono la forma 
dello sprite 0 viene fatta pun- 
tare alla locazione opportuna, 
aggiungendo ad un indirizzo 
di base (245) uno scarto in 
funzione della direzione atti- 
vata (SP(JS t 0)). L'indirizzo in 
questione va moltiplicato per 
64, per ottenere l'indirizzo 
reale della locazione di base. 
Quindi viene attivata la loca 
rione che controlla la visualiz- 
zazione dello sprite 0, 
Visualizzazione dei valori at- 
tuali di P t JS e della direzio- 
ne. 

La scritta della bussola corri- 
spondente alla vecchia dire- 
zione viene “ricoperta" in ne- 
ro. Il test consente di evitare 
di compiere questa operazio- 
ne nel caso in cui il joystick si 
trovi in posizione di riposo o 
spostato nella stessa direzio- 
ne già attivata. In questo mo- 
do si evita che la scritta “lam- 
peggi" continuamente da ne- 
ro a rosso. 

Nel caso in cui sia stata scelta 
la terza opzione compare la 
scritta indicante da quale 
Control Pori proviene 11 se 
gnaìe del joystick. 

Viene visualizzata in rosso la 
scrìtta corrispondente alla 
nuova direzione indicata e 
viene aggiornata la variabile 
che mostra la vecchia direzio- 
ne, quindi si ricicla. 

Gestione del colore degli spri- 
te. In particolare: 

Se il pulsante di sparo non è 
stato premuto, si esce dal so t- 
toprogramma. 

Viene aggiornata la variabile 
contenente il codice colore 
(CO), Se il valore contenuto 
è uguale a 15 (Grigio chiaro» 
colore di fondo), sì riprende 
la serie da 0 (Nero). 

La locazione di controllo del 
colore dello sprite 0 viene ag- 
giornata, quindi, dopo un ci- 
clo di attesa per impedire che 
i colori si succedano troppo 
rapidamente, il sottopro- 
gramma viene chiuso. 

Lettura dei pulsanti di sparo 
per il controllo del colore in 
entrambe le Control Pori. 
Acquisizione del segnale da 
entrambe le Pori, 

Se i joystick sono in posizione 
di riposo, sì passa alla routine 


di gestione del colore. 

400 Viene compiuto un test sulla 
lettura della locazione con 
ne ssa alla Control Port # 1. 
Nel caso in cui il valore segna- 
li un joystick in posizione di 
riposo vengono assunti i valo- 
ri letti dall’altra locazione e si 
richiama la sezione di pro- 
gramma utilizzata per la lettu- 
ra in una sola delle due loca- 
zioni. In questo modo, ovvia- 
mente, attivando contempo- 
raneamente entrambi i joy- 
stick si ha un comportamento 
scorretto del programma. 

410 Analoga alla riga precedente, 
ma con test sulla lettura della 
locazione connessa olla Pori 
# 2 . 

420-460 Dati da inserire nelle matrici 
SP(10 t 2) e SP${10), Il primo 
valore numerico corrisponde 
allo “scarto" da aggiungere 
all'indirizzo di base per otte- 
nere l'indirizzo della locazione 
di base dei 64 byte di defini- 
zione della forma dello sprite 
e va inserito in SP(I,0), Il se- 
condo corrisponde alla riga su 
cui compare la scritta corri- 
spondente nella “bussola" 
(SP(1,1)) ed il terzo alla colon- 
na da cui far partire la scritta 
(SP(I,2)). 5P$(I) conterrà la 
scrìtta stessa. I dati nella for- 
ma 0.0,0, “Illegale" corri- 
spondono a valori inammissi- 
bili per JS, 

470 780 Dati di definizione degli spri- 
te. Ogni sprite è costituito da 
63 valori numerici (3 per riga 
per 21 righe), “chiusi" da uno 
0 per un totale dì 64 byte oc- 
cupati (il che consente dì spe- 
cificarne l'indirizzo in forma 
abbreviata). 



330-360 

340 


24 SUPt(lCOMMOOOBE®Z/S5 



Programma Joystick per C64 

10 R$ = " { HOME } \ 25 GIU r }";DIKW 5 ( 25 ) ,SP( 1 0 , 
2 ) ,SP$ ( 10 ) ;FORI= 1 T 025 :rom 193 

20 W$ (I)=LEFT$ (RS,I) : NEXT : FORI = 1 TQl 0 : FORJ 
-UT 02 :READSP{IU) : NEXT : READSP$ (IJ :NEXT 

; rem 243 

30 POKE5328Q, 1 5: POKE53281 , 1 b : PRINT" (CLR } 11 
: V^5324 6 :rem 149 

40 PKINTCHRS (14) : IFPEEK 0 6004) =4THENbQ 

:r@tn 2 32 

50 FORI =0TO7 : FORJ =0TO63 ; READ A : POKE1 5744 + 6 
4 * I +J , A : NEXT J , I :rem 231 

00 PRINT" {CLR } " TAfì ( 1 6 ) " i RED J M E N U'";NS= 
3;M$ (1 ) ~"PORT 1{ 4 SPAZI}” :rem 4 
70 M{1 ,0) =56321 :M ( 2 , 0} = 56320 : M ( 1 ,1 ) =255: M 
(2,1}=127:MS { 2 ) = 11 FORT 2{ 4 SPAZI}” 

: rem 1 50 

80 M(3,7 } = 0:M$ (3) ="PORT 1 * 2" : PRINTWS { 3) 
TAB (10)” {BLU } LETTURA JOYSTICK INt" 

:rem 149 

90 FOR I = 1 T03 : FRI NTW$ (5+1*2} TAS ( 3 ) " {RED } 

{ RVS } 11 RI GHT$ { STRS [ I ) , 1 ) 11 { OF F }{ BLK } - " 
MS (1} : NEXT :rem 96 

100 FRI NTWS ( S+N S * 2) TAB ( 7 ) " { RED ] "MS (NS) :PR 
INT WS (5+VS*2]TAB (7) " (BLK } "MS (V5) 

t rem 255 

110 P 1 =PEEK (563201 ; P2=PBEK ( 5632 1 ) :Fl=PìAN 
D16:F2 = P2AND16: IFFlOlfcQRF2<>16THENl 5 
0 : rem 106 

120 TFPÌ -1 260RP2= 254THENVS=NS : NS=N5- 1 ; IFN 
S=QTHENNS-3 : rem 88 

130 IPPICI 250RP2=253THENV$=NS:NS=NS+l : IFN 
S=4THENNS=1 :rem ti 7 

740 GOTO! 00 ;rem 95 

1 50 PRINT" {CLR} "TAB (2) ” { BLU }P M TAB (8 

{GRN}J£”TAB( 1 4 ) " { BLK } LETTURA IN"TAB (2 
8 ) n {RED j DIREZIONE {BLKj" :rem 42 

160 PRINT" [<A>H 3 *}[<S>]{ 2 SPAZI }[<A>J 
{ 2 *}(<£>}{ 2 SPAZI } { < A> ] { 10 *} 
[<S>Tt 2 SPAZIH<A>H 10 M[<S>]" 

Usiti 160 

170 P$=RIGHT$("{ 3 SPAZI J"+STRS (M(NS,1 >} , 
3} : rem 20 

180 PRINT" { BLU ) " PS " { BLK } -_{ 2 SPAZI }*_ 
{GRK} 0{BLK}-{ 2 SPAZI }-"MS {NS ) " 

[ 2 SPAZI }-{ 10 SPAZI}-” tieni 62 

7 90 PRINT” [ <Z> ] { 3 *H<X>JT 2 SPAZI }{<Z>1 
{ 2 2 SPAZI }i<Z>}{ 10 *} 

{<X>Tt 2 SPAZI}l<Z>J{ 10 M Ux>i” iFOR 



I-lTOl 0 

: rem 

1 75 

200 

IFSPU ,0)=UTHEN220 

treni 

234 

210 

PRINTWS (SP(I, 1} )TAB{SP (1,2) ) SP$ (I) 




treni 

170 

220 

NEXT 

trei 

21 1 

230 

1FNS“3THEN380 

: rem 

255 

250 

P=PEEK (M(NS,0) } ; JS = 15- 

(PANDI 5) ; FR = 

PAN 


D ì 6 1 I F JS = OTHENGOSUB3 3 0 

t GOTO250 




trei 

113 

260 

PQKEV+1 , 121 :POKEV+Q, 7 56 trern 

27 

270 

POKEV+23,1 : POKEV+29 r 1 : 

POKEV+39 , CO 




tieni 

209 

280 

POKE2040, 245+SP ( JS,0) : 

POKEV+21 ,1 : P$=R 


IGHT$ (STR? (P) ,3? 

treni 

1 9 

290 

JSS=RIGHTS (STRS (JS) ,2) 

: PRINTW5 ( 3 ) TAB ( 


7 ) H (BLU I " P$TAB { 8 ) 11 {GRN } " JS$TAB ( 28 ) 

II 


{REO 1 11 SP$ (JS) 

treni 

21 


300 IFOSOOANDGSOJSTHENPRINTKS (SP(GS,1) ) 
TAB (SP (OS # 2) ) "{BLK}"SP$ (OS) treni 31 
310 IFNS=3THENPR1NTWS (23) TABU) " (REDlSEGN 
ALE PROVENIENTE DALLA FORT” SP "{ BLK } " 

;rem 68 


320 PRINTW5 (SP(JS,1) ) TAB (SP US , 2) } " {RED } w 



SPS (JS) ; QS= JS : GOTO 2 3 0 

: rem 

1 98 

330 

REM ** COLORE DELLO SPRITE ** 

:tem 

45 

340 

IFFR= 1 6THENRETURN 

: rem 

1 1 3 

350 

CO=CO+1 ;IFCO=1 5ThENCO^0 

treni 

129 

360 

POKEV+39, CO: FORI *1X0500: 

NEXT: RETURN 

: rem 22 

370 

FR= (PIAND16) AND (P2AND1 6) 

; G0TO330 
: rem 

100 


380 P 1 = PEEK (56320) : P2=PEEK ( 56327 } ;Jl =1 5- ( 
p 1 AND 15):j2 = 15-( P 2 AND 15) :rem 97 
390 I F J 1 = 0 AND J 2“ 0TH ENGQSUB 370 : GOTO 380 

;rem 38 

400 IFJÌ =0THENJS-J2;P=P2:SP»1 :GOT02bO 

; rem 47 

41 0 IFJ2 = UTHENJS=J1 : P=PÌ ; SP= 2 : GOTO260 

tieni 48 

420 REM ** DATI BUSSOLA ** treni 93 

430 DATAI , / ,1 5,"{ 3 SPAZI }NORD{ 3 SPAZI} 
”,2 t 17,15, M { 3 SPAZI}SUD{ 4 SPAZI}", 0 
,0, 0, "ILLEGALE" trem 157 

440 DATA 3, 12,5, ”{ 2 SPAZI jOVEST 

{ 3 SPAZI }" ,6, 7 ,5," NORD -OVEST" ,5, 1 7,5 
SUD-OVEST" treni 77 

460 DATA0 ,0,0, "ILLEGALE" tiem 2 02 

460 DATA4,12,25,"{ 3 SPAZI }EST{ 4 SPAZI} 
",7,7,25," NORD-EST ”,6,17,25," SUD- 
EST { 2 SPAZI } 11 treni 251 

470 REM ** DATA SPRITE NORD ** :rem 75 
480 DATA0, o,0, 0,26,0, 0,62,0,0, 1 27,0,0,255 
,128, 7 ,255,7 92,3,2 55,224,7,255,24 0 

treni 110 

4 90 DATA0, 127,0,0,127,0,0, 727,0, 0, 1 27,0,0 
,127,0,0, 255,1 28, 1 ,255,192,3,247,224 

treni 197 

500 DATA3, 227, 224, 3, 793,224, 3,1 28,224,3,0 
,96,2,0,32,0 : rem 64 

510 REM ** DATA SPRITE SUD ** :rem 255 

520 DATA2,0, 32,3,0,96,3, 1 28,224,3,1 93,224 
,3,227,224,3,247,224,1 ,255, 1 92 

treni 191 

530 DATA0, 255, 1 28,0,127,0,0, 127,0,0, 1 27,0 
,0,127,0,0, 127,0,7,255,240,3,255,224 

treni 191 

540 DATAI ,255,1 92,0,255,1 26,0, 127,0,0,62, 
0,0,28,0,0,8,0,0 treni 239 

550 REM ** DATA SPRITE OVEST ** treni 168 

560 DATA 0,0, 0,0, 0,0, 0,0,0, 1 ,0,0, 3, 7, 248, 7 
,3,240,1 5,7,224, 31 ,2^5, 792,63,255,128 

irei 225 

570 DATAI 27, 255,0, 255,254,0, 1 27 ,255, 0,63, 
255,1 28,31 ,25 5, 192 ,1 5, 7, 224, 7, 3, 240 

: rem 202 

580 DATA3 , 1 , 24 & , 1 , 0 , 0 , 0 , 0, 0 , 0 , 0, 0 , 0 , 0 , 0 , 0 

irei 190 

590 REM ** DATA SPRITE EST ** treni 7 
600 DATA0, 0,0, 0, 0, 0,0,0, 0,0, 0, 728,31 , 1 2&, 
1 92,15, 1 92,224,7,224,240,3,255,248 

treiti 86 

610 DATAI ,255,252,0, 255,254,0,127,255,0, 2 
55, 254 , 1 , 255, 2 52, 3, 2 55, 24 b, 7, 2 24, 2 40 

; rem 243 

620 DATAI 5,1 92,22 4,31 , 1 28 , 1 92 , 0 , 0 , 1 28 , 0, 0 
,0,0, 0,0,0, 0, 0,0 F : rem 218 

630 REM ** DATA SPRITE SUD-OVEST ** 

: rem 192 

640 DATA0, 0,0, 0,4,0, 0, 12,0,0,28,0,0, 60,0, 
0,1 24, 0,0, 2 52, 0,0, 255, 240, 0,255, 224 

treni 8 9 

650 DATAQ, 255,1 92, 1 ,235,128,131 ,255,0,1 99 
,254,0,239,224,0,255,192,0 trei 14 
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REM:HW 

Il Joystick 



6b0 DATAlibS, 128, 0, 25b,0 ,0, 264 ,0,0,255,0,0 
,255,128,0,255,192,0,0 :rera 39 

670 REM ** DATA SPKITE NORD -OVEST ** 

:rem 11 

fatìU DATAO, 0,0, 255, 192, 0,255, 128, 0,255, 0,0 
, 254, 0, 0 # 2&5, 0,0, 255, 128,0, 255,1 92, U 

tt età 20 5 

690 DATA239 , 224, 0, 199,254, U, ! Si ,255,0, 1,2 
55,128,0,255,192, 0,255,224,0, 255,240 

:rem 244 


700 

DATAO, 252,0, 

Or 124,0,0,60,0,0,28,0, 

0, 1 


2,0, 0,4, 0,0 

:rem 

208 

710 

REM ** DATA 

SPRITE NORD-EST ** 




i rem 

97 


720 DATAO, 0, 0,0, 15,254,0, 7,254,0, 3,254,0, 
) ,254,0, 3,254,0, 7,254,0, 15,254 

:rem 149 

730 DATAO ,31 ,254,1,255,236,3,255,798,7,25 

5.1 30. 1 5.255.0. 31 .254.0.0.62.0 

: rem 190 

740 DATAO, 62,0, 0,02,0,0, 60,0, 0, 56,0, 0, 48, 
0,0,32,0,0 :rem 1 75 

750 REM ** DATA SPRITE SUD-EST ** 

treni 30 

760 DATAO, 32, 0,0, 4 8,0, 0, 56,0,0, 60, 0,0, 62, 
0,0, 62,0,0,62,0, 31 ,254 ,0, 15,255,0 

:rem 10 

770 DATA?, 255, 130, 3,255,198, 1 ,255,238,0, 3 

1.254.0. 15.254.0.7.254.0.3.254 

* treni 202 

780 DATAO, 1,254,0,3,254,0,7,254,0,15,254, 
0, 0, 0, 0 ; rem 58 
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Ora i programmi sono già 
dentro ai computer 
Questo è il nuovissimo 
Plus/4. H primo personal che 
ti dà, oltre a compiete 
caratteristiche professionali 
anche 4 programmi dì 
altissima qualità già 
incorporati: un programma di 
WORD PROCESSING ( per 
scrivere lettere e relazioni; un 
FOGLIO ELETTRONICO per 



26 sup0icoMMooo«r* im 








la pianificazione finanziaria; 
un DATABASE, per la 
creazione e gestione di 
archivi; un pacchetto di 
BUSINESS GRAPHICS, per 
visualizzare i tuoi dati sotto 
forma di diagrammi e 
istogrammi. 

E facile: premi un tasto e 
puoi richiamare subito i 
programmi che vuoi, senza 
dover aspettare il tempo di 


caricamento. Puoi anche 
usarli insieme, perchè sono 
integrati (e lo schermo è 
divisibile in 4 parti). 

Commodore Plus/4 è lo 
strumento ideale in campo 
finanziario e gestionale, per la 
scuola e per la professione. 

Puoi aggiungere tanti altri 
programmi e lo usi con facilità 
per risolvere un’infinità di 
complessi problemi. 


E hai chiesto il prezzo? 
Straordinario (se pensi che i 4 
programmi incorporati 
valgono da soli ben di più). 

Commodore Italiana S.p.A. 
tei. 02/618321. 



Commodore 

COMPUTER 



Commodore ti fa scegliere 


soma cMdfiwp 




























di A. Guida 


LETTERA 

Non appona la qualità dille llaac 
t «taf oni cfca nlglior*fà t «d II mo- 
dani diventar» una periferica più 
comune, m ranno molte le perao- 
na ella troveranno piu veloce In- 
viare una lettera per merco del 
proprio telefono. 


I n attesa che ciò diventi possibile vi 
presentiamo due programmi per so- 
stituire il vecchio foglio con un supporto 
magnetico. Oltre che per scrivere ad un 
amico, questi programmi sono utilissimi 
per introdurre dei commenti a program- 
mi sitilo stesso supporto, o semplice- 
mente per dare un'occhiata al contenu 
to di file sequenziali. 

Chi riceverà questo tipo di missiva non 
dovrà fare altro che inserire il nastro 
nel registratore (o il floppy nel drive) e 
digitare LO AD e RUM (LO AD “REA 
DER*\ 8 per i] drive). 

Sullo schermo apparirà il testo della let- 
tera come se venisse battuto da una 
macchina da scrivere, in bel l'ordine e 
con le varie pagine separate dalla dici- 
tura “(contìnua)*. 


COME PREPARARE UNA LETTERA 
Come prima operazione è necessario 
registrare sul disco o sul nastro una co- 
pia del programma “READER* (listato 
1), il quale permette la lettura del testo 
che viene registrato di seguito su di un 
file sequenziale. 

Dopo va scritta la lettera, utilizzando un 
programma per il trattamento testi tipo 
EASY-SCR1PT. Se non avete a disposi- 
zione un tale programma, potrete utiliz- 
zare r EDITOR presentato nel listato 2. 
Questo non è in realtà un programma 
per il trattamento dei testi, bensì una 
semplice routine che vi permetterà di 
utilizzare un editor semplice da usare e 
a voi molto familiare: quello del BASIC. 
Infatti, durante la scrittura di un pro- 
gramma BASIC si hanno a disposizione 
alcuni comandi propri di qualsiasi tipo 
di editor. Ad esempio, si possono rive- 
dere delle Linee con il comando LIST, 
ripulire la memoria con Li NEW e spo- 


stare il cursore dove si vuole, per cor 
reggere una riga, con i tasti DEL o 
INST, 

Il programma del listato 2 vi permette 
di registrare il listato, composto con il 
testo della lettera, sul disco o sul nastro 
in forma sequenziale ed eliminando i nu- 
meri dì linea. 

Perciò questo programma deve essere 
caricato in memoria ed eseguito prima 
di cominciare a scrivere il testo. 
Naturalmente, poiché non state scriven- 
do un vero programma, ma una lettera, 
dovrete attenervi ad un paio di semplici 
regole perché La routine di salvataggio 
sia in grado di registrare il tutto in forma 
sequenziale. 

1 - Ogni riga deve cominciare con il 
carattere “ (virgolette). Non è necessa- 
rio utilizzare il REM, 

2 - Non è possibile utilizzare il carattere 
* (virgolette) all 'interno dei testi. 

3 La prima linea deve avere il seguen 
te formato: 

1 * (nomefileH , 5 , W) : np 

nomefile-il nome da assegnare al file 

sequenziale. 

T S.W -da aggiungere solo se si usa il di- 
sco, 

np =numeroperif erica (1 -regi stratore/ 
Sdisco), 

Tutto ciò appare molto chiaro guardan- 
do il listato 3, che contiene un esempio 
di lettera. 

Terminato di scrivere il testo bisogna 
eseguire la routine dì salvataggio. Que- 
sto si ottiene con l’istruzione 

SYS 49152 

in modo diretto. Terminata la fase di 
registrazione la vostra lettera informati 
ca è pronta. 


I DUE PROGRAMMI 

II listato 1 contiene il programma che 
si occupa di leggere il file sequenziale 
Nel ricopiarlo prestate attenzione alle 


lìnee che contengono delle modifiche 
per la versione su nastro. Copiate solo 
la parte che vi interessa, e non vi preoc- 
cupate se il numerino di controllo non 
coinciderà con quello riportato nel lista- 
to. 

Il programma d molto compatto ed è 
molto utile dare un'occhiata alle linee 
più interessanti. 

Nelle attese per la pressione di un tasto 
sono stati eliminati i lunghi cicli IF. . 
THEN e sostituiti con una istruzione 
molto più efficiente: WAIT 653,1. Que- 
sta in particolare accetta la pressione 
del solo tasto SHIFT. 

Per non eccedere il limite dì una pagina 
video è stata utilizzata l'istruzione 
PEEK (21 4), che ritorna il numero della 
tiga sulla quale si trova il cursore. 

È possibile ascoltare il ticchettio tìpico 
di una macchina da scrivere (compreso 
il campanello di ritorno carrello) toglien- 
do il REM alla lìnea 12. 

La linea 20 contiene La testata che viene 
presentata ad ogni pagina della lettera. 
Potete sostituirvi lì vostro nome, cer 
cando dì occupare esattamente 40 ca- 
ratteri. 

IL programma 2 contiene la routine dì 
salvataggio del testo come file sequen- 
ziale. Esso serve solamente a caricarlo 
nella giusta zona di memoria. Al termi 
ne si cancella da solo con 0 NEW alla 
linea 20. Questa routine va eseguita pri- 
ma di cominciare la scrittura del testo. 
Va notaio, alla linea 50, che l'istruzione 
PEEK(61 )‘256+PEEK{63) fornisce il 
numero della lìnea dell’ ultima istruzione 
DATA letta. Perciò in caso di errore si 
può conoscere quale linea ne è la causa. 
Ricordate di registrare i due programmi 
(in particolare il secondo) prima dì dare 
il RUN 


N,B. Teniamo a farvi presente che fi- 
danzate, mogli ed amanti, raramente 
sono sensibili ai progressi della tecnica. 
Quindi, per le lettere romantiche sarà 
meglio continuare ad utilizzare il tradi- 
zionale supporto cartaceo. Uomo avvi- 
sato... 
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Programma 1 READEILBAS 

1U 0PENZ,a,2,*TESTG,S,R n ;REM PER IL REGIE 
TR AVO Rei OPEN 2, 1,0 treni ili 

It PRINT" £N } iHj": REM SET MAI U5CQL0/MINUSC 
t DISABILITA TASTI COMM. +SHI FT 

treni 134 

1* REM SOLO PER SUONO POKE5427 7 , Oi : PQKE3*. 

27 J , l 27 : FQKE:>4272 + 24 , 1 5 : rem 137 

2u Ss- 11 w tPRINT" iCLR>{KVSn<7>] CREATIVE 
SOFTWARE ARTS { 7 SPAZIA*. BY ALEA 
Top F j " : R m TESTATA : r cm 1 6 0 

3Q 1 FST=b4THENPRi NT" tGIU 1 ) *’ TAB ( 50 ) "1RV5 jF 
INEIUFFJ"; :CLQSE2:WAITb33, 1 : END ; REM FI 
NE TESTO ; rem 77 

40 GETf 2 , Ab t GGSUB 100 : rem 11 7 

SU 1FPEEK (Zi 4) <22THEN30:AEM CONTROLLA POS 
I ZI ONE CURSORE s rem 220 

60 FRI NT; PRXNTTAB U&j 11 (CONTINUAR " : PRINT" 
t UVE j PREMERE LO SH1FT" ; itera 1 95 

70 *AiTb53,l ;GGT02U:REM ATTENDE LO SHIFT 

: rem 1 bó 

1 00 POKE54276,0 t rem 36 

1 10 IFAb-CHRS (1 3) THENPRINT" (5 I N J " B$A$ ; : 

■" ":POKE54276,l7:RRTURN treni 92 

libi FA$ CCHR$ (32) OR ( h$ >CHRS (127) ANDAS <CHR 
$ ( 1 bu ) } THENPRI NT" 1 5 IN j AO ; ;b* = " 

{ UES J Ir ; RETURN : rem 8 7 

120 PRINT 11 (SIN } M B5 ; t POKEl 33 (PEEK ( 1 9 9) >=U 
) :PRINTA$; tPOKEl 99 , - ( PEEK ( 1 33 ) =0 ) 

:tcm 129 

liu B6«AbtPOKE5427b, 129: RETURN treni 239 


SOI 40 DATAzUO, 1 77,231 ,240,014,201 ,034,20ti 
, U 4 > : rem 197 

SOI SO UATA24 7, 200, 177,231 ,240,003,032,210 
,0 82 s rem 200 

501 SO DATArbtj,! 4 4,2 4b, 169 ,01 3,032,210,2 55 
,044 : rem 21 5 

SUI 70 DATAI 4 4,207,032,204,2 55,169,001 ,032 
, 0*0 treni 200 

501 bO DATAI 9b, 2 55, U9b,UUe, 2 55,255,000, 000 
,032 treni 207 

SUI 90 DATA *** trem 151 


Programma 3 TESTO. BAS 

1 "testo, S, w:8 srem 86 

2 "GENTILE LETTORE, treni 39 

3 " i rem 85 

4 "OUESTOi d SPAZI ) SEMPLICE EDITOR 

[ 2 SPAZI ) PERMETTE! 2 SPAZl)DItrem 67 

5 "COMPORRE DELLE LINEE { 2 SPAZI) DI TESTO 

SFRUT- t rem 1 ! 0 

6 "TANDQ L 1 EDITOR DEL BASIC COMMODORE* 

: rem 18 

7 "SONO, PERTANTO, UTILIZZABILI 

p2 SPAZI} TUTTI 1 trem 92 

8 "NORMALI COMANDI BASIC (NEW, LIST ) ,PIU‘ 

; rem 173 

9 "DUELLI DELLA TASTIERA ( I NST , PEL ECC * ) • 

; rem 29 

10 ** (GIU 1 } tram I4b 

11 "NATURALMENTE V £ SPAZI ]E' POSSIBILE 

l~2 SPAZI } SFRUTTARE ; rem 106 

li "QUALSIASI ( 2 SPAZI t ALTRO l * SPAZI} PRO 
DRAMMA i 2 SPAZI IDI WORD- trem 79 

Ij "PROCESSING TIPO EASY - SCRIPT . t rem 33 

14 * trem 135 

15 " tram 136 

Iti "INOLTRE, E * { 2 SPAZI } POSSI BILE FARE U 

SO DEGLI trem 228 

19 "ATTRIBUTI VIDEO COME: trem 25 

2U 11 t rem 1 32 

21 "IL (RVSJ REVERSE (OFF) E X 1WHT}C{CYN}Q 
{ PU R j L i GRN i 0 \ YEL J R 1 RLK ; I [<7>] . 

; rem 1 32 

22 " trem 134 

23 w { 2 GIU * IL 1 EDITOR ( 2 SPAZ I j INSIEME AL 

REAPER COSTITUÌ- trem 70 

24 "SCEl 2 SPAZI )UN SIMPATICO! 2 SPAZI }ME 

ZZO PERI 2 SPAZI ) INVIARE trem 57 

25 "LETTERE AD AMICI E CONOSCENTI IN POS- 

t rem 1 1 ti 


Programma 2 EDiTOR.BÀS 

10 RESTORE : I N - 49 1 52 trem 152 

2U READ Ab : I FA $ = 11 * * * 11 TH ENNE W : rem 41 

30 TT-VAL(AS) :POKEIN,TT : rem 181 

4 0 FO RC = 1 TO 7 : READ A : POKEIN+C , A J TT“TT+A : NEX 
T trem 244 

5U READAt IFAO (TT AND255 ) THENPRINT" ERRORE 
NEI DATA ALLA L I NE A" PEEK ( b 4 ) * 2 5 b +PEEK 
(63) : END trem 184 

60 I N * IN t tì : GOTO 20 trem 9 

5000u DATA lb9,0Uti,l 33 , 2t>* , 1 69,001 , 133,231 
, U92 trem 210 

50010 DATAI 60 ,000, 1 77,251 , 1 33 , 2 bs , 2UU , 1 77 
, U71 trem 2 QU 

50020 DATA251 , 1 33,254,200, 177,251,201,034 
, 221 trem 195 

50030 DATA20ti,249,2UU,024, 1 52, 101 ,251 ,133 
,058 : rem 1 99 

5UG4U DATAU20, 16 5,252, TU 3,000, 1 33,021 ,160 
,ubB trem 193 

5UU50 DATA255,20U, ì 77,020, 201 ,058,200,249 
,U 8 b trem 220 

LuObU DATA234,1 32, 022,234,200 ,177,020,041 
, U 36 trem 1 94 

5G07U DATA01 5,1 70,224,001 ,200,003,160,001 
,014 trem Ibj 

50050 DATAU 4 4 , 1bU,002,lb9,UUl,032,l8b,255 
,Util trem 210 

50u9o DATAI tìb, 020 ,154,021 , 1 65 , 022 , 032 , l 8 9 
,01 1 trem 206 

50100 DATA255, 032, ly 2, 255, 162,001 ,Oj2,2u1 
, 1 Ob trem 1 94 

50110 DATA255,ìb5, 253,1 33,251 ,165,254,135 
,073 trem 21 8 

50 1 20 DATA252, 240, 039, lt>0, 000, 177,251 , 1 3-s 
,228 trem 206 

501 30 DATA253 , 200 , 1 77,251 ,133,254,200,200 
, 1 32 trem 1 94 


00 ^ 
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{OFF} i<7>3 * : rem 96 | Y ALEX ~ : rem 104 

30 'M 3u SPAZI J Ì < 7 P>1 :rem 7B 

2 7 " : rem 139 31 14 1 36 SPAZI}/ Idi 

28 w ìxem 140 3* " l 35 spazi)/ :rem 182 


Rendere antostart 
i programmi da nastro 


Il tciwiie ìilovttrt lidloi U ca- 
pacità df wm progriBHi di av- 
viarsi automati caia ante seni 11 
bisogno dal coaaado BVN. 1 due 
prùfrawii eh* pr* lentia no par* 
mattano di dotar* di qnssta ca- 
ratteristica qualsiasi programma 
registrato sa nastro. 

C iò vuol dire che non sarà piu neces- 
sario digitare 11 comando RUR In- 


Programma 1 AUTOST.ftUN 


fatti, con il solo classico I.OAD il pro- 
gramma verrà caricato dal nastro ed 
eseguito. 

Tutto ciò si ottiene registrando una par* 
titolare routine prima del programma 
che si vuole rendere autostart. Questa 
routine verrà automaticamente prepa 
rata e registrata dai programmi I e 2, 
Questi si differenziano poiché il primo 
serve per quei programmi che sì avvia- 
no normalmente con ii RUN, mentre il 
secondo serve per quelli che si attivano 
con un SYS, Nel secondo programma, 
infatti, prima di procedere alla creazio- 
ne della routine viene richiesto se $1 vuo- 
le un LOAD normale o uno non rilocato 
{LOAD**,!,!), e quindi il numero che 


segue il SYS, 

L'uso è, perciò, molto semplice, Va riav* 
volto il nastro da utilizzare e caricato in 
memoria il listato lo 2 (a seconda se si 
vuole un RUN o un SYS), Dato il RUN 
la routine di autostart verrà registrata 
sul nastro. Al termine dell’operazione 11 
64 si re setta (come se fosse stato acce' 
so e spento). Senza ri avvolgere la cas- 
setta che state preparando, caricate in 
memoria il vostro programma e salvate' 
io subito dopo la routine già registra' 
la. 

Questo è tutto, non vi resta che stupire 
ì vostri amici dando loro una cassetta 
preparata in questo modo. 


Ili R ASTORE: IN -491 52 :rem 152 

20 READ A $ : X FA8 tì " * * * "THENSYS (491 52 + j2) 

:rem 3 b 

30 TT^VAMASj :PUKEIN,TT :rem IBI 

40 FGRC - 1 TO 7 : READ A : PU KE I N+C , A : TT™ TT+ A : NE X 
T : rem 244 

50 READA: 1FAO (TT AND *baj TrtKNPRINT" ERRORE 
NEI DATA ALLA LINEA" PEEK( 64 ) **5&+PREK 
tei} ;END :xem \ B4 

bO !N=IN+btGOT020 :rcm 9 

bOQoU DATAI i>9 , 1 jì # 1 41 ,002,003,1 69,1 64 ,1 41 
,152 :rem 2UU 

5001 0 DATA003,Uui# lb2,Q05,1 34 , 1 98 # 1 69 , 24y 
#175 : rem 220 

5UO20 DATAQ02# 157,1 1 8 # 002 , 202 , 20d , 24 7 # 1 08 
,020 : rem 194 

50U3U DATAO02, 003# 078,069,087 ,01 3, l 31 ,000 
# 1 27 :rem 199 

50040 DATAI u0 f 03t ,105,000# 192,153,224,002 
,179 :rem 204 

5 0 0 5 u DATAI 36 , U 1 6 , 24? , 1 b 9 , 224 , 1 4 1 #00 2,003 

, 1 70 : rem 205 

50060 DATAI 69, 002, 141 ,00 3,003, 1 69, Oo! ,1 70 
,146 :rem 199 

50070 DATAI bO # 001 , 032 , 1 8b , 255 , 1 1>9 , 000 , 032 
,067 : rem zOtf 

50060 DATA 169, 2 55, 169, 224, 1 33,251 #169,002 
,112 ; rem 226 

50090 DATAI u3 , 2 52 , l 6y , *51 , 162,004,1 60,00 3 
,110 ; rem 201 

bUlOO D ATA0 a 2, 2lb, 255, 032, 23 1,255,0 7 6, 226 
,043 : rem *07 

50 l 1 0 DAVA252, 2 55,000, 000, 255,253,000,000 
#24 9 : rem 1 89 

50120 DATA *** :rem 144 


Fragrimi 2 AUTOST.SYS 


30 TT-VAL(AS) : PUKEIN#TT :rem Itìl 

4 0 FORC = lT07 : READ Ai IFA=256 r fHENl 00 

; rem 1 7 

44 1FA-257THEN200 :rem 212 

4 6 POKEIN+C , A : TT"TT+A :rem 62 

48 NEXT : rem 171 

50 READ A: IFAO (TT AND 25 b ) THENPR1NT" ERRORE 
NEI DATA ALLA LINEA" PEEK t 64 ) * 25 6+PEEK 
(63): END :rem 184 

60 IN-rN+S:GGT020 :rem 9 

10U PRINT"{CLRj0-LOAD NORMALE" : PftlNT" 1 - LO 
AD NON RI LOCATO (, 1 ) 11 : INPUT "^UaLE" ?L 




: rem 

12 

1 10 

IE LOO AND LOl THEN 1 00 

: rem 

Ibi 

120 

PQKEIN+C # L : GQTU4B 

; rem 

30 

200 

INPUT" iCLRHNDLRI ZZO DEL SYS 





: rem. 

29 

210 

HB%=S/25b ; LE%=S-HBi* 256 

:rcm 

190 

220 

POKEiN+C # Lb% : POKElN+C+1 ,HB%: 

C=C+1 

: REA 


10 RESTORE; IN*49l 52 :rctn 152 

20 READAS : I FAS-" *** 1, THEN5y549 1 89 : rem 77 


DA:gùTÓ 48 ;rem 27 

50000 DATAI 69, 13) , 141 ,u02,003# 3 69,1 64,1 4 1 
, 1 52 ;rem *00 

50010 DATAU03, 003,1 69, 001 ,170,1 60,256,032 
, 026 : rem 1 92 

50020 DATAI «6 , 2 55 , 1 69 , 000 , 032 , 1 89 , 235 , 1 69 
,231 :rem 229 

50030 ÙATAOOO, 1 33, 1 57 ,032 # 21 3 , 253, 1 34 # 045 
,201 :rem 193 

50040 DATAI 32 # 04 6 , 0 76 , 2 57 # 000 , 1 60,037,185 
#124 ; rem 2 1 2 

50050 DATA000,+92,1 53,206 #002,1 3q,U 1 6 #24 7 
, 1 6b : rem 21 0 

50Gb0 DATAI 69 #208, 1 41 , 002 ,003 , 1 69,002 # 1 41 
# 0t>7 :rem 207 

5u0 1 0 DATAOO j , 003, 1 65,001,1 70,1 60,001,032 
, 027 :recn 1 87 

5QUU0 DATAI 86 ,255,1 69, 000,032, 1 89,2 55,1 69 
,231 :rem 235 

50090 DATA206 , 1 33,251 #169,002,133,252,169 
,037 :rem 221 

30ÌUO DATA251 # 1 fa 2 , 004 , 1 bO , 00 3 # 032 , 2 1 6 , 255 
, Uba :rem 1 99 

50)10 DATAU3* ,231 ,255,076,226,252,000,000 
,04b :rem 196 

50120 DATA *** : rem 1 4 4 


31 SUPEPCOMhKXX>Rfc^ ?/*S 




di E. Colombini 
tf C* Tovem 



Qnttto gioco, oltre ed essere di- 
vertente od tnttrtfHDlc» Imi dp 
valore “storico**. È infetti II pii* 
mìo “*d venture" (gioco di avven- 
tore ed eeplor azione) e col ib- 
biamo giocato, in nn certo «eneo 
Il nostro rito di iniziazione e 
questo mondo affascinante. Non 
fovee stato per Quest, forse non 
avremmo mal scritto “ Avventare 
nel castello”. Come sarebbe e di- 
re, cose sono gli edventnre e co- 
e 'è “Avventura nel castello”? 
Possibile che qualcuno ancora 
non lo sappia? Per col mere le 
grevi le cune culturali di quel po- 
chi (o tanti) lettori che dimostra- 
no una così spiacevole disinfor- 
mazione, apriamo una breve pa- 
rentesi. 

Ad ve ut ure (game) 

G li adventure sono giochi di simula* 
ztone : il giocatore impersona un av- 
venturiero che deve esplorare un am- 
biente ignoto (e pericoloso}, alla ricerca 
di favolosi tesòri o per compiere una 
difficile missione. Arcani problemi, stra- 
ni incontri, tortuosi labirinti e trappole 
micidiali sono normale routine per chi 
sì addentra in oscure caverne, antiche 
tombe o castelli stregati in terra scotte 
se. A differenza degli arcade (videoga- 
me), non c’è limitazione di tempo: li gio- 
catore può pensare quanto vuole prima 
di fare una mossa. Gli ordini vengono 
dati al calcolatore semplicemente scri- 
vendoli {per esempio: “Apri la porta"}, 
ed il programma descrive le conseguen- 
ze del Tazio ne. in forma grafica o verba- 
le. 

Anche se la grafica è più attraente, un 
buon testo è spesso più suggestivo, per- 
ché nessun disegnatore potrà n\ai ugua- 
gliare la fantasia del giocatore, E la stes- 
sa differenza che passa tra un buon li- 
bro e la sua versione cinematografica o 
televisiva. 

Ma torniamo alla storia dei giochi di av- 
ventura, Il pirmo adventure fu scritto 
da Crowther e Woods molto prima del 
l'avvento dei personal computer. Era 
realizzato in linguaggio FORTRAN su 
un minicomputer {calcolatore di medie 


dimensioni) POP 10 e si chiamava sem- 
plicemente “ Adventure". Potreste pen- 
sare che, essendo il primo, fosse poco 
sofisticato: in realtà era molto ben fatto 
ed è tutt ora uno dei migliori in assoluto. 
Un classico. 

Nel 1973 i personal computer esisteva- 
no, Mentre negli USA vari autori, tra 
cui segnatamente Scott Adams, si dava- 
no da fare per portare i giochi di avven- 
tura su queste piccole macchine che an- 
davano conoscendo una crescente diffu- 
sione, in Italia (beata ignoranza provin- 
ciale} eravamo in estasi davanti al pri- 
mo personal computer appena giunto 
da oltre oceano: il Pet 2001 (Commodo- 
re), Conoscendo soltanto V Olivetti 
P6060 (che potremmo definire, senza 


offesa, un'onesta carriola), il Pet sem- 
brava roba da fantascienza. Era pratica - 
mente un Vìe 20, senza colore e suono, 
ma allora era davvero fantascienza. 

Storia nostra 

Tra i vari programmi che eravamo riu- 
sciti a* procurarci per il Pet c’era appun- 
to un certo “Quest", che apparve subito 
dì un genere diverso da tutti gli altri: ci 
appassionò e restammo a lungo davanti 
alla tastiera, prima di riuscire a risolver 
lo. Servì parecchio anche per imparare 

I primi rudimenti di inglese. 

II gioco ci piacque tanto che decidemmo 
di tradurne i testi in italiano, anche se 
allora gli appassionati non erano proba 
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burnente più di qualche decina. Avem- 
mo ì nostri problemi; dando lì SAVE 
ottenemmo un ?OUT OF MEMORY 
ERROR perché II nome con cui volevo 
salvare era troppo lungo e gli 8Kbyte 
di memoria erano finiti! lì registratore 
era lentissimo, sbagliava spesso e volen- 
tieri ed ogni tanto caricava cose senza 
senso, nonostante la doppia registrazio- 
ne, i vantati controlli di errore, ecc. (a 
proposito, la Commodore usa ancora io 
stesso identico sistema di registrazione). 
Comunque, alla fine riuscimmo a termi- 
nare il lavoro di traduzione e il tutto, 
dopa qualche tempo, fini in un cassetto. 
IL tempo passo, realizzammo varie cose 
strane (un programma di aiuto alta pro- 
duzione, un dispositivo per il collaudo 
automatico di motori, un plastico ferro 
viario comandato da un linguaggio “tre- 
no” per la prima fiera di Bit), poi il Pet 
2001 diventò un CBM3032, poi aveva- 
mo bisogno di una macchina più poten- 
te ed affidabile e un amico ci diede un 
buon consiglio (grazie, Piero Dell’Or- 
co!). E fu così che incontrammo chi 
avrebbe cambiato la nostra vita; l’Ap- 
ple II. 

Fu come entrare in un altro mondo, co- 
me passare dalla 500 alla Penar!. Tra- 
scorrevamo molte sere a scrivere pro- 
grammi o a provare nuovi giochi appe- 
na arrivati, quando inciampammo in 
“Apple adventure", la versione per Ap- 
ple dell’avventura originale di Crowther 
e Woods (della quale Ignoravamo anche 
resistenza; allora, ahinoi, non leggeva- 
mo Byte). Di nuovo cì riunimmo tutti 


intorno al video per risolvere il mistero. 
Ma non era facile; cì vollero due mesi 
o giù di B. 

Tornando a noi 

Alla fine una cosa era certa: i giochi di 
avventura cì appassionavano. Comin- 
ciammo a pensare di scriverne uno per 
conto nostro, anche se non sapevamo 
da che parte cominciare. Ma fu dopo la 
lettura di “Il nome della rosa" (di Um- 
berto Eco) che d mettemmo d’impegno 
per realizzare un ad venture nel nostro 
tempo libero. Dopo oltre un anno di 
alterne e travagliate vicende (che rac 
conteremo in altra sede) nacque, final- 
mente (con la collaborazione di Chiara), 
“Avventura nel castello”, che un edito 
re coraggioso (Tedinoci ub, oggi J,so/t) 
consentì a pubblicare quando era molto 
difficile prevedere che sarebbe diventa- 
to un beat-seller e avrebbe diffuso an- 
che in Italia la passione per i giochi di 
avventura. 

A proposito, tra poco "Avventura nel 
castello” anche per Commodore 64! 
(non fateci fretta, su Apple occupa 
85Kbyte su disco e dobbiamo “strizzar- 
lo * nella memoria del C64). 

Cosa c’entra tutto dò con “Quest”? 
C’entra, perche nel giocare all’originale 
Ad venture ci siamo resi conto che 
Quest non è altro che una versione mi- 
ni mìni dei celebre gioco. Quest è ridot- 
to all’osso (e anche un osso rosicchiato), 
ma in molti punti si capisce che l’autore 
deve aver giocato l’Adventure e, come 
noi, esserne rimasto catturato al punto 
da voler fare qualcosa di simile. Dun- 


que, Quest è un'eccellente introduzione 
al mondo dell' Avventura! 

Non aspettatevi, naturalmente, un vero 
ad venture che “capisce” le frasi in ita- 
liano! Il gioco si comanda semphcemen 
te scrivendo la lettera corrispondente 
alla direzione in cui d si vuole muovere 
(esempio N per nord), come d’altronde 
spiegano le istruzioni. Bisogna riuscire 
a portare il tesoro fuori dalle caverne. 
Attenzione, però, il gioco è semplice, 
ma non è banale. Ci sono alcuni trucchi 
machiavellici che occorre risolvere per 
venirne fuori. Vi consigliamo, tra l’altro, 
di tenere una accurata mappa delle ca- 
verne, Se avete risolto il problema, il 
gioco si ripete identico. Per giocare una 
partita diversa, anche se meno appas- 
sionante, togliete la linea 33. La posizio- 
ne del tesoro verrà estratta a caso (è 
una nostra modifica). 

Se Quest vi è piaciuto 

Se avete Intenzione dì giocare un vero 
ad venture sul vostro C64, vi suggeria- 
mo l’eccellente “11 mistero della pirami- 
de” (di Enrico Ragalni, ed, J. soft). Na- 
turalmente, non perdetevi “Avventura 
nel castello", non appena sarà pubblica- 
to. 

Se volete andare oltre e scrivere da voi 
un gioco del genere, abbiamo buone no- 
tizie: stiamo preparando degli strumenti 
per consentire a tutti dì scriversi le pro- 
prie avventure, anche con minime cono- 
scenze di BASIC. Tenete d’occhio le 
edicole, le librerìe e, naturalmente, SU- 
PERCOMMODORE. Ciao! 


Quest per C 64 

1 GOSUS20 00 0 : rem 163 

2 REM QUEST BY ROGER CHAPFEE :rem 164 

3 REM "TRADUZIONE DI E* COLOMBINI" 

: rem 252 

4 REM” ADATTAMENTO SU C~64f 2 SPAZI )CHI ARA 

TOVENA" : rem 5 

5 POKE 53272, 22:CLRtRESTORE:DEF FNpC(X> = 1 

00* RND (1 ) < X : D 1 MMO % ( 5 ) : rem 150 

6 T-RND(-TI) :G0T099 ; rem 171 

7 H%’D% (N) /W:L%*D% (NI -W*H% : POKE65 , Li : POKE 

6 6 , H % : READ J : I F J < > NTHEN5TOP :rem 73 

8 F0RJ=QTO5:READM0% (J) : NEXT : RETURN 

: r em 24 3 

10 FOR J = QTO 5 ; PRI NTMO % ( J ) : NEXT : GQSUB SO 0 0 : R 
ETURN i rem 15 

20 T?- 11 04 0 5061 1 1 21 31 4 1 920 21 22 23252 7293 034 
35363738" . :rem 187 

25 FORJ-lT02ìT“2*INT( 21 *RND(1 ) ) +1 tT2=VAL{ 
MID$ (T$ , T , 2 } ) : I FJ ■ 1 TRENTI -T2 : NEXT 

treni 212 

30 IFT2^T1THEN25 :rem 208 

32 RITOGLIERE LA LINEA SEGUENTE PER AVER 

E IL TESORO RANDOM :rem 87 

33 T1=23:T2=12 :rem 237 

35 RETURN :rem 72 

99 POKE532B0,9:POKE53281 ,12 trem 3 

100 PRÌNT**iCLR 1 "SPC (15) ;CHR$ (31 ) " [ RED } - 

QUESTI - " ! PR INT :zem 55 

120 PRINT" {BLU] STATE PASSEGGIANDO IN UN B 
OSCO" treni 169 

125 PRI NT "QUANDO SCORGETE L'ENTRATA DI UN 
A" ; rem 128 


130 PRI NT" CAVERNA, MASCHERATA DA STERPAGL 
IE." : rem 1 3 

135 PRI NT : PRI NT" SI DICE CHE MOLTI ANNI FA 
UN PIRATA* 1 troni 200 

140 PRI NT" ABBI A NASCOSTO Ih SUO TESORO DA 

QUESTE" treno 227 

145 PRI NT" PARTI , MA NESSUNO LO HA MAI TR0 
VATQ * " : rem 40 

150 PRINT" POTREBBE ESSERE ANCORA NASCOSTO 
QUI:* 1 :PRINT "CERCATELO!" treni 6 

400 READMAX,T1 ,T2:GQSUB20 treni 21 

500 DTMDlfMAX) ,tf% (MAX) : W» 256 : P*204 8 

treni 238 

510 FORI «OTOMAX ; J"9Q0 0 + 1 0*1: trem 127 

520 RN=PEEK(P+3) *FEEK (P+4 1 : I FRNK JTHENP= 
PEEK (P+l > +W*PEEK(P+2) -1 : GOTO 520 

treni 109 

5 30 D I ( I ) ; NEXT : rem 161 

900 PRINT: PRI NT 11 RISPONDETE ALLE MIE DOMAN 

DE PREMENDO" t rem 249 

910 PRINT" SOLO LA PRIMA LETTERA, ALTRI MEN 


TI MI", "CONFONDO." 


110 

920 GOSUB7 500 

:rein 

231 

1 000 

N« 2 : COSO B 7 : MOVE- 0 : ML- 

- 5 : T“T1 : P=0 

: Pi - 


0 : FOR J = OTOMA : W % U) =0: 

NEXT treni 

1 1 0 

1 020 

PRI NT : GOSUB8 000 

treni 

21 0 

1 1 0G 

MQ~MO+! :GOSUB6000 

tram 

1 9 

11 50 

GOSUB2000 

tram 

9 

1160 

GOSUB40OO 

treni 

12 

1180 

IFT>00RNO2G0TQl 100 

trem 

177 

1200 

GOSUB3G0Q 

:rem 

6 

1 205 

PR I NT : PRI NT" {BLKl COMPLIMENTI I AVETE 


PORTATO FUORI IL", "TESORO IN" ;MO; 

trem 127 


32 suPEHconwoEx>nr® z/*s 



1210 

PRINT" MOSSE E AVETE" : PRINT 1 
0" PUNTI!" 

"FATTO 
: rem 

"S+l 

51 

1220 

PRINT" {GIU '} {BLU }VO LETE GIOCARE 
RA? " ; : AN$ = "SN" iGOSUBSOOO :rem 

ANCO 

203 

1230 

GOSUB20 

: rem 

168 

124 0 

ONANGOTOl 000, 9999,1 220 

: rem 

238 

2000 

REM TROVATO? 

: rem 

20 

2100 

I FT< >NORT< 0TH ENRETURN 

: rem 

222 

2110 

IFMO<HL+5THENRETURN 

: rem 

51 

2120 

ML=MO 

: rem 

55 

2210 

PRINT" {BLU} VOLETE PORTARLO 
: AN$“"SN" tGQSUBSOOQ 

CON VOI? 

: rem 77 

2230 

ON AN GOTO 2300,2400 

: rem 

227 


2240 PRINT" [BLU }COME? * * . . " : G0T0221 0 

treni 11 

2300 T" - T ; PRX NT : PR I NT 11 [ BLK ) VA BENE , E ADE 
SSO PORTATELO FUORI !": RETURN 

trem 241 

2400 FRI NT: FRI NT" (BLU) POTETE LASCIARLO QU 
I ED ESPLORARE” : rem 141 

2410 FRI NT" ANCORA UN POCO RETURN 

trem 104 

3000 REM SCORE trem 35 

3100 S = -5* (T*-l) -10* (P*1) : rem 231 

3110 FORJ=2tOMAX:S=S+W*(J) :NEXT trem 198 

3120 RETURN :rem 166 

400 0 REM PIRATA : rem 105 

4100 IF N*T2 OR P = 1 OR Tl*T2 OR TO-1 THEN 
RETURN uem 137 

4110 IF N=1 6 GOTO 4 2 00 trem 70 

4130 IF N=30RP1 > QTHENPl «Pi + T ; rem 111 

4140 I FPl < 1 5 THEN RETURN :rem 138 

4 200 PR I NT t PR I NT" {RED } IMPROVVISAMENTE IL 
PIRATA APPARE DALL'" lieti! 214 

4210 PRIN^OSCURITA 1 E SI IMPADRONISCE DE 
L TESORO! " : rem 90 

4220 PRINT" 'AH! ' , ESCLAMA, * AVETE TROVATO 


6300 IF I m - 2 THEN I-OLD 


209 


6305 IFI > 5Q0THENI - 500 : FORJ s 0TO 3000 : NEXT 


: GOT06 300 

6310 ON I/H GOTO 6330,6340 
6320 N = I s GOTQ63 50 
6330 
6340 


N=I-H~ (T=-l J : GOTO 6 3 50 
N= 1-200* (T*-lANDP=l ) 


: rem 
: rem 
: r em 
ì rem 
:rem 


44 

37 
224 
1 95 
94 


L O A D 



6350 

6370 

6400 

6420 

6500 

6510 

6520 

6540 

70 00 
7050 

71 00 

7110 
71 20 
7130 
7135 
7140 

7150 
71 70 
71 80 
7200 
7 300 
7320 


GOSUB7 


: r em 

133 

I FN-QTHENFOR J»0TOSs 

MO% [JJ“ 

1 :NEXT:MO 

K6-AO) »OD 


: rem 

75 

GOSUB 8000 


: rem 

18 

IF MO*<0)<>-2 THEN RETURN 

trem 

133 

I ( 5 > 


trem 

1 52 

IF FNPC £MO t ( 3 ) ) THEN 

I =MO% { 

4 } . 




: rem 

19 

IF FNPC £MO% fi)) THEN 

r-MO %{ 

2) 




: rem 

16 

GOTO 6300 


: rem 

209 

REM DA CHE PARTE? 


: rem 

187 

GETQS : IFQ$< >" "GOTO 70 50 

iretn 

3 4 

PRINTtPRlNT S PC { 1 5 ) " 

{CYNjDA 

, CHE 

PART 

E? 


: rem 

103 

ANS~ ” NEABOSP" 


: rem 

5 

GOSUB 5000 


: rem 

15 

IF AN< 7 THEN RETURN 


trem 

107 

I FAN"7G0T07 3 00 


trem 

101 

PRINT: PRINT" {BLU} DA 

CHE PARTE VOLETE 

ANDARE?" 


: rem 

141 

GOSUB7500 


trem 

25 

REM ;GOSU87 


: rem 

164 

GOSUB80 00 


: rem 

24 

GOTO 71 00 


:rem 

202 

GOSUB3000 


: rem 

1 3 

PRINT" {BLU} AVETE" S" PUNTI l 

GOTO 70 00 


179 



IL MIO" 



: rem 

1 64 

7500 

PRINT: PRI NT" PREMETE N,S,E,0,A,B, 

PER 

4230 

PR I NT" TESORO , VERO? ! { 

2 SPAZI} VUOL D 


NORD, SUD," " trem 

20 


TRE CHE LO" 



:rem 

19 

7510 

PRINT" EST, OVEST, ALTO, BASSO . " : 

FRIN 

4240 

PRI NT" NASCÓNDERÒ * 

MEGLIO, 

QUESTA 

VOL 


T" PREMETE P PER SAPERE I PUNTI." 

: PR I 


TA! IW 



: rem 

56 


NT : RETURN ~ :rem 

113 

4250 

PRI NT"E SCOMPARE 

NELLE 

TENEBRE CON I 

8000 

REM DESCRIVE : rem 

1 


L TESORO." 



: rem 

47 

8200 

READ AS : I FAS “ " "GOTO 82 50 : r em 

2 

4270 

P=1:T*T2: RETURN 



trem 

246 

8205 

IFLEN ( AS ) < 3GQTOB4 00 :rctn 

103 

5000 

REM INPUT 



: rem 

57 

8210 

IF LEFT$(A$,2) s" { 2 SPAZI } " GOTO 8250 

5100 

L=3 



: rem 

1 30 


: rem 

70 

5200 

AN«0 



: rem 

1 95 

8220 

IF LEFT6 (A3 , 1 ) - " "THENPRINT" {BLU }SIE 

5210 

GET Q$:IF OSO"" 

THENIF (ASC £QS) AND! 2 


TE"; :rem 

146 


7 } > 31 GOTÓ5300 



: rem 

21 3 

8250 

PRI NTAS : GOTO 8000 :rem 

252 

5220 

AN=AN+1 : IF AN< 1 5 

GOTO 

5210 

: r em 

123 

8400 

IF TON THEN8500 :rem 

115 

5240 

L-4-L:PRINTMID$P 

[ < + > ] {SIN} {SIN} 

",L 

8405 

PRINT: PRINT: PRINT" {YEL}{ 6 SPAZI} SOS 





; rem 

76 


: rem 

82 

5250 

GOTO 5200 



: rem 

204 

8406 

PRINT'M 6 SPAZI } $ { 23 SPAZI }$" 


5300 

AN-1 : PRINT" {SIN} t<4>] 

";CHR$(ASC(Q$) 


: rem 

235 


+ 128} 



: rem 

244 

8410 

PRINT" { 6 SPAZI }${ 3 SPAZI) IL TESORO 

5320 

IF QS=M1D$ (ANS ,AN,1 ) GOTO 

5400 



E 1 QUI ! { 3 SPAZI }$" trem 

164 





: rem 

39 

8415 

PRINT" [ 6 SPAZI } $ ( 23 SPAZI }$" 


5330 

AN=AN+1 



: rem 

1 30 


:rem 

235 

5340 

IF AN< = LEN ( AN$ ) GOTO 5320 

: rem 

73 

8420 

PRINT'M 6 SPAZI }$$$$$$ $$S$$$$S$$$ $$$ 

5400 

RETURN 



: rem 

169 


PRINT: PRI NT trem 

177 

6000 

REM MOVE 



: rem 

225 

8500 

IF TOT2 OR Tl »T2 OR TlON GOTO 

0600 

6010 

H* 1 00 tOLD^N : GOSUB 7 000 


: rem 

2 


:rem 

142 

6060 

IFN< >0THENAO-AN :OD=N 


: rem 

54 

8510 

PRINT: PRINT"UNA NOTA SUL MURO DICE:" 

6170 

PRINT: I *MO% ( AN - 1 ) 



trem 

26 


* trem 

1 30 


8520 PRINT" 'UN PIRATA NON LASCIA MAI IL 
SUO TESORO"; trem 61 

8530 PRINT " [ 2 SPAZI }DUE VOLTE NELLO STES 
SO POSTO. ' " :rem 78 

W% (N) *1 : RETURN trem 113 

; rem 136 

srem 86 


8600 

8999 

9000 


DATA 38,23,12 
DATA0, 2,3,4 ,5, 6,7 


SUPEBCOMMOOOfi^ 33 


900? 

DftTA" IN UN VICOLO CIECO!" 

: rem 

178 

9010 

DATAI ,-2,101 ,-2,0, 0,0 

: rem 

253 

9011 

DATA" {BLUjNON POTETE ANDARE 

IN QUELL 


A DIREZIONE"," “ 

: rem 

163 

9020 

DATA 2 ,3,8,15,10,0,16 

: r em 

245 


9021 DATA" DAVANTI ALLA CAVERNA /* , * ANDATE 
A SUD PER ENTRARE." : rem 105 

9030 DATA 3,5,1 , L, 1 0 , 1 0 6 , 4 :rem 228 

9031 DATA 1 * { BLU }UN TUNNEL VA DA NORD A SUD 

E' UN'APERTURA AD OVEST.” 

:rem 37 

9040 DATA 4 , H ^ 3 0,1 ,11 ,1 ,0 :rem 173 

9041 DATA" SULL'ORLO DI UN POZZO.” 

:rem 207 

9050 DATA 5*1*1,1,1,116,3 ? rem 180 


9051 

DATA "[BLU ILO STRETTO TUNNEL GIRA L 1 


ANGOLO." 

:rem 

246 

9060 

DATA6, 16,3,1,10,1 ,1 

: rem 

181 

9061 

DATA" NELLA CASA DEL RE-GNOMO.™ 




srem 

249 

9062 

DATA" PER FORTUNA, OGGI E 

* FUORI.” 




:rem 

38 

9070 

DATA?, -2, 0,0, 0,0, -2 

srem 

167 

9071 

DATA" [RED} IL RE- GNOMO E' 

QUI 1 " , "MEGL 


IO NON ENTRARE!"/' " 

: rem 

218 

9080 

DATA 8,18,18,15,10,18,9 

irem 

102 

9081 

DATA" PERSI NEL BOSCO." 

: rem 

54 

9090 

DATA 9, -2, 33, 2, 0,0, -2 

: rem 

227 

9100 

DATAI 0, -2, 0,0,0, 0 , -2 

: rem 

203 

9101 

DATA " CONVINTI DI SAPER 

SCAVARE 

LA" 


ROCCIA CON LE UNGHIE?" 

W H 

t 




: rem 

46 

9110 

DATA1 1,0,13,4,1 ,1 ,1 

srem 

170 

9111 

DATA" IN FONDO AD UN POZZO. UN PICCO 


LO" 

:retn 

91 

9112 

DATA RIVO SCORRE SULLE ROCCE. 




srem 

20 

9120 

DATAI 2, 36,1 ,1,1,1 ,1 

: rem 

175 

9121 

DATA" IN UN VICOLO CIECO 

! ™ : rem 

181 

9130 

DATAI 3, 1,37, 1,1, 11,1 4 

treni 

23 


9131 DATA" SOTTO ROCCE FRASTAGLI ATE ; " 

'.rem 221 

9132 DATA" C 'E r UNA MACCHIA DI FULIGGINE S 

UL MURO," : rem 87 

9133 DATA” LASCIATA DA UNA TORCIA." 

: r ero 201 

9140 DATA 14,13,0,19,1 ,22,22 ;rem 76 

9141 DATA" IN UN CANYON. ALTO SUL MURO" 

:rem 68 

914 2 DATA"C ' E 1 UN MESSAGGIO:” :rem 128 
9143 DATA" [ 6 SPAZI) 'BILBO E' STATO QUI*" 

:rem 75 

9150 DATAI 5,-2, 0,0, 0,0, -2 : rem 213 

9151 DATA” CAPACI DI VOLARE?"," ” 

: rem 212 

9160 DATA 16,2,5,1,10,0,106 : rem 25 

9161 DATA” IN UNA CAMERA BASSA. UNO STRET 

TO™ ;rem 146 

9162 DATA” TUNNEL VA AD EST, E POTETE CAMM 

IN ARE” : rem 221 

9163 DATA" VERSO SUD O VERSO OVEST "C T E ' 

LUCE A NORD." :rem 218 

9170 DATAI?, -2, 101 ,-2, 0,0,0 : rem 59 

9171 DATA™ (RED)E 1 TROPPO STRETTOI NON CI 

PASSATE" : rem 122 

9172 DATA” CON IL TESORO.",” " :rem 32 

9180 DATAI 8, «2,1 01 , 8 , 0,0,0 :rem 22 

9181 DATA' 1 {BLU) NON PENSO POSSIATE TROVARE 

LA CAVERNA * " :rem 134 

9190 DATA19, 224, 26/1 ,1 4 ,0,27 :rem 142 


9191 DATA" IN CIMA AD UNA COLLINA.", ”SOTT 
O DI VOI UN MESSAGGIO DICE:" 

: rem 1 7 

9192 DATA" { 6 SPAZI)* BILBO E 1 STATO QUI 1 " 

:rem 79 

9200 DAT A 20 ,1 ,0,1 ,1,25,26 :rem 225 

9201 DATA" SUL LATO SUD DI UN ABISSO TROP 

PO" :rem 15 

9202 DATA" LARGO DA SALTARE, ECO RIMBOMBAN 

Ti” :rem 234 

9203 DATA" SONO L'UNICA INDICAZIONE DELLA” 

/'PROFONDITÀ'." :rem 152 

9210 DATA 21,1,0,1,1,38,25 :rem 230 

9211 DATA” IN [RED } XANADU { BLU ) , SOTTO DI 

VOI ALF,”,"IL FIUME SACRO, SCORRE TR 
A CAVERNE" ite m 87 

9212 DATA "SMI SU RATE VERSO UN MARE SENZA S 

OLE." * item 34 

9220 DATA22,! 4, 14,23,1 ,0,1 : rem 20 

9221 DATA™ NELLA STANZA DELLA GHIGLIOTTIN 

A; " : rem 1 37 

9222 DATA" UN GROSSO MASSO E 1 IN EQUILIBRI 
O", 11 PRECARIO SOPRA DI VOI.”: rem 27 

9230 DATA23,! ,1,1 ,22,1,1 :rem 174 

9231 DATA” DIETRO IL MASSO SOPRA LA", "GHI 

GLIOTTINA" :rem 17 

9240 DATA 2 4 ,-2,101 ,19,0,0,0 i rem 66 

9241 DATA" [RED) SENTO IL GIGANTE, QUI H 1" , 

"MEGLIO SCAPPARE! "/* ” :rem 242 

9250 DÀTA25 , 21 ,20,1 ,32,0,19 :rem 78 

9251 DATA" NELLA CAVERNA DEL GIGANTE. 

*rem 123 

9252 DATA" MEGLIO NON ESSERCI, QUANDO RITO 

RNA1 : rem 1 20 

9260 DATA 26,-2,65,-2,50,1 1,14 : rem 176 

9261 DATA” IN UN'AREA DI RICERCA E SVILUP 
PO”, "DI NUOVE AVVENTURE. ” , " " 

: rem 223 

9262 DATA"MI SPIACE, MA I VISITATORI NON 

SONO” - * :rem 55 

9263 DATA AMMESSI. OVETE ANDARVENE.," ” 

srem 224 

9270 DATA 27,28,28,28,28,28,28 ; rem 217 

9271 DATA" NELL' (RED } ASHRAM [ BLU J . L'ARIA 

E* SATURA" :rem 116 

9272 DATA" DI INCENSO, E TUTTE LE DIREZION 

I"," SEMBRANO UGUALI.” cretti 207 

9280 DATA 28,-2,20,30,25,29,31,"" 

: rem 4 1 

9290 DATA 29,1,27,1,13,0,0 srem 240 

9291 DATA" IN CIMA ALLA STALATTITE G IGANT 

E,” :rem 40 

9292 DATA" DALLA QUALE POTETE SCENDERE, MA 

NON" /'RISALIRE. " ;rem 194 

9300 DATA3Q, 34,34,1 ,1 ,4,1 :rem 230 

9301 DATA " IN UNA PICCOLA GROTTA. C'E* I 

L™ ; r em 1 39 

9302 DATA "LIBRO DI BORDO DEL 'VASCELLO FA 

NTASMA* DATATO 1763" :rem 152 

9310 DATA3? ,-2,33,121 ,50,13,1 9 :rem 223 

9320 DATA32, -2, 101 ,516,0,0,0 srem 114 

9321 DATA" SCIVOLATI SUL GHIACCIO E NON" 

: rem 54 

9322 DATA "AVETE MODO DI FERMARVI /',"[ RED } 

TENETEVI FORTE! !!”,” " ; rem 172 

9340 DATA34, 0,35,1 ,1 ,30,30 :rem 25 

9341 DATA” IN UN DEDALO CONTORTO." 

:rem 184 

9350 DATA 3 5 ,1,1 ,1,37,34,36 :rem 40 

9351 DATA” IN UN DEDALO TORTUOSO.” 

:rem 208 
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9360 

DATA 3 6 ,35,1 ,1,37,34,12 

: rem 

91 

9361 

DATA" IN UN CONTORTO DEDALO," 




: rem 

IBS 

9370 

DATA 3 7 , 1 ,1 ,35/1,1 3,1 

treni 

239 

9371 

DATA" IN UN TORTUOSO DEDALO , " 




: rem 

210 

9380 

DATA 38 , 1 ,21,1,116,0,1 

treni 

31 

9381 

DATA" IN UN'ABITAZIONE PREISTORICA" 



:rem 

191 

9302 

DATA"CON ROSSI DISEGNI DI 

BISONTI 

SU 


LLE " 

srem 

209 

9383 

DATA" PARETI E OSSA SPARSE 

PER TERRA, 


n 

:rem 

212 

9384 

DATA" RESTI DI ANTICHI RITI 

, UN PICCO 


LO" 

: rem 

220 

9385 

DATA" TUNNEL ATTRAVERSA IL 

PAVIMENTO - 


.41 

: rem 

128 

9998 

DATAI 

: rem 

46 

9999 

PRINT" {CLR} " 

: rem 

72 

1 0000 PRINT"CIAOl PRINT: PRI NT : 

END 




srem 

30 

20000 POKE53280,9:POKE53281 ,12: 

PRINT" 



(CLR) " : POKE53272 , 22 

:rem 

29 

20010 PRINT: PRINT: PRINT" (BLUH 

3 SPAZI 

) 


{ 3 0) E 3 SPAZI }U [ 5 SPAZI )U 



( 6 E) ( 2 SPAZI (T S S) ( 

7 T}" 



:rem 234 


20020 PRINT" t 2 SPAZI }Q( 3 SPAZI }Q 

{ 2 SPAZI ItJl 5 SPAZI 30 E{ 6 SPAZI} 
SÉ 10 SPAZI }T” :reitt 125 

20030 PRINT" Q { 5 SPAZI }Q U{ 5 SPAZI }U E 
{ 6 SPAZI }S{ IO SPAZI }T n :rem "*126 
20040 PRINT" Q { 5 SPAZI }Q U{ 5 SPAZI }U 

[ 4 E}{ 4 SPAZI } [ ! S}( 5 SPAZlTr" 

:rem 26 

20050 PRINT" Q[ 3 SPAZI }Q Q O { 5 SPAZI }U 
E( 12 SPAZI )S{ 4 SPAZI }T": rem 81 
20060 PRINT" [ 2 SPAZI ÌQÉ 3 SPÀZIjQ 

{ 3 SPAZljLFÉ 3 SPAZI J U [ 2 SPAZI}E 
( 12 SPAZlIs t 4 SPAZllT" : rem 129 
20070 PRINT" ( 3 SPAZI }{ 3 QÌ Ql 3 SPAZI} 

{ 3 tJl ( 3 SPAZI } ( 6 |) T 6 S) 

{ 5 SPAZI )T" :rem 241 

20080 PRINT: PRINT: PRINT:PRINT" { 2 SPAZI} 
DAL GIOCO ORIGINALE DI ROGER GNAFFE 
E" : rem 2 34 

20090 PR I NT : PRINT: PRINT: FRI NT: PRXNT"TRADU 
ZI ONE ITALIANA DI ENRICO COLOMBINI" 

:rem 25 

20100 PRINT: PRINT: FRI NT" ( 2 SPAZI ) (YEL} AD 
ATTAMENTO SO C-64 DI CHIARA TOVENA" 

;rem 38 


201 1 0 

CS-"1 302030007090106" 

: rem 

252 

20120 

FORC=0TO7 :CO-VAL {MID$ ICS 

,C*2+Ì , 

21 ) 



trei 

222 

201 50 

M“ 554 1 6 : PORI “MTOM+40 * 7 

t rem 

91 

20160 

POKEI ,CO : NEXT 

: rem 

1 68 

20170 

GET AS : I TA$ » " "TH ENNEX T : GOTO 20 1 2 0 




: rem 

1 96 

201 B0 

RETURN 

: rem 

219 


Per ricevere le riviste arretrate 
di SUPERCOMMODORE con casaetta 
compilate e spedite il coupon qui sotto! 
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Gioco «ftrtvAocktc veloce, 
SPIDERS metterà m dtn prova 
le qualità di resistenza fielea del 
vostro dito ani pulsante di fuoco 
del joystick. Richiede rifleeai 
prontftaalml e rapida capacità de- 
cisionale per riuscire a rea Iste re 
alle successive ondate di ragni 
alleni che stanno attaccando 11 
sistema solare. 

Scritto originariamente per II 
VIC InespansOt SPIDERS à stato 
riscritto per funzionare anche 
sul C64 munito di Joystick. 


L 'impero Aracnide tenta un'lnvasio- 
ne, e tocca a voi fermarlo: questi 
malefici ragni hanno abbandonato II lo 
ro pianeta, ormai sovrappopolato, e so 
no stati attratti dal colore azzurro della 
Terra. Mentre vi state tranquillamente 
sorbendo un caffè sulla poltrona di casa 
vostra, l'improvviso strombazzare del 
dackson e le urla della gente vi avverto- 
no che l'armata di ragni alieni è stata 
avvistata nel suo approssimarsi all'at 
terraggio. In qualità di comandante del- 
la difesa terrestre vi accorgete subito 
che è ormai troppo tardi per inviare dei 
caccia contro i ragni, e l'unica soluzione 
rimasta è attivare il sistema terrestre di 
difesa. Attraverso uno schermo video 
guidate il sistema di cannoni-robot ter- 
restri nel tentativo di sconfiggere gli 
alieni. Il computer d'attacco vi mostra 
la formazione di ragni; tre righe di ragni 
cercano la posizione adatta per iniziare, 
al segnale convenuto, l'invasione della 
Terra. Di tanto in tanto alcuni ragni la- 
sciano la formazione per scendere, lan- 
ciando missili verso il suolo e minaccian- 
do seriamente il vostro canno ne -robot. 
Se non riuscite a colpirli e distruggerli 
mentre stanno scendendo, essi si riunì 
ranno ai compagni nelle schiere dell 'ar- 
mata, pronti per minacciarvi una secon- 
da volta. Il vostro compito è posizionare 
il cannone- robot esattamente sulla ver- 
ticale del ragno che desiderate colpire 
e rapidamente far partire un colpo. Al 
tenzione, perché gii ordini ricevuti dal 
comando dell'Impero Aracnide racco 
mandano di distruggere dapprima la di 
fesa terrestre e poi attaccare in massa 


la Terra, 

Due generali dell'armata comandano i 
ragni dalle proprie sicure posizioni, in 
alto nella formazione, mentre un colon- 
nello sta sotto ogni generale. Questi ulti- 
mi alti ufficiali non attaccheranno fino 
a che non siano prima stati eliminati 
tutti ì ragni inferiori, e sono dotati dì 
sorprendente rapidità e potenza di fuo 
co. Fino a che non avrete distrutto tutti 
gli inferiori, questi ufficiali saranno ir- 
raggiungibili dai vostri colpi. 

Otterrete IO punti per ogni ragno colpi- 
to mentre si trova in formazione e 100 
punti per ogni colpo andato a segno su 
un ragno in fase di attacco. Disponete 
inoltre solo di tre cannoni-robot e ne 
perdete uno quando viene colpito da un 


missile sparato dai ragni oppure quan 
do entra in collisione con un ragno stes- 
so, Quando perdete tutti i cannoni- 
robot gli alieni scendono vittoriosamen- 
te sulla Terra, 

Una volta eliminati tutti i ragni- so (dato 
i colonnelli ed i generali iniziano il loro 
attacco, due alla volta. In questa fase 
del gioco il punteggio viene calcolato 
dieci volte maggiore rispetto alla fase 
normale: ciò vale a dire che colpendo 
un ufficiale in formazione si otterranno 
100 punti, mentre colpendolo in fase di 
attacco se ne guadagneranno 1000. 
Non si perde il proprio cannone-robot 
se viene colpito in questa fase del gioco: 
nel caso sì riescano a colpire tutti gli 
ufficiali inizierà un nuovo round con una 
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formazione allena piu agguerrita della 
precedente. 

Nota alla versione per 
V1C 20 

Chi non disponesse della cassetta alle- 
gata alla rivista dovrà usare la versione 
ridotta di MLX qui presentata, per digi- 
tare la parte del programma in linguag- 
gio macchina; chi, al contrario, dispo- 
nesse della cassetta con ì programmi 
già registrati dovrà seguire questa prò- 
ce dura: 

l r Caricare la parte in BASIC del prò 
gramma (la prima in ordine di apparilo 
ne sulla cassetta}, con LOAD 

2. Senza dare il RUN caricare la parte 
del programma in linguaggio macchina 
(che appare sulla cassetta subito dopo 


la prima}, usando l'istruzione: 

L0AD“M,I 

N B. Si noti che tra le virgolette non d 
deve essere alcuno spazio (stringa nuì- 
la), 

3. Digitare RUN ed inserire un joystick 
nell'apposita porta. 

Note alla versione per C64 

Chi non disponesse della cassetta dovrà 
usare MLX per digitare la parte in Un- 
guaggio macchina, rispondendo alle do- 
mande di MLX con: 

indirizzo iniziale =7911 
Indirizzo finale - 9182 
Chi invece disponesse della cassetta 


con i programmi già registrati dovrà se- 
guire questa procedura: 

1 . Caricare la parte de! programma in 
linguaggio macchina (la prima In ordine 
sequenziale sulla cassetta} usando 
nstruztone: 

LOAD *U,1 

N.B. Si noti che tra le virgolette non ci 
deve essere alcuno spazio (stringa nul- 
la). 

2 Digitare NEW 

3. Digitare LOAD 

4. Una volta completato il caricamento 
della seconda parte digitare RUN. 

Il joystick andrà inserito nella Porta 2. 
Buona caccia! 


MLX ridotto 
per V1C 20 


1 U0 

PQKE 3 5 , G : PO KB 5 6 , 2 3 : C LR 

t rem 

8 

210 

S=64U5;E=7676 

: rem 

1 36 

300 

PRINT" (CLR} n JCHRS (1 4) : AD»S 

: rem 

56 

310 

PRINTRIGHT5 (” UUOQ” +MID$ (STR$ (AD) , 

2) ,5 


:FORJ=lT06 

: rem 

234 

320 

GOSUB 3 7 0 : 1 FN- - 1 THEN J = J +N ; GOTO 3 2 Q 




ìrero 

228 

460 

IFNCOTHENPRINT: GOTO 3l 0 

t rem 

168 

490 

A ( J ) a N ; NEXTJ 

: rem 

199 

500 

CK»AD- INT (AD/ 256) * 2 56 : FORI ■ 

lTOtiiCK^ (C 


K+A ( I ) ) AND255;NEXT 

: rem 

233 

51 0 

PRINTCHR? (18) ; ;GOSUB570 : PRINTCHRS (20} 



:retn 

234 

51 3 

IFN=CKTHEN530 

:rem 

10 

52 0 

PRINT: PRINT" ERRORE : RI PETERE 

" : PRINT: GO 


SUB 1 000 : COTONI 0 

: rem 

225 

530 

GQSUR2000 

:rem 

218 

540 

FORI ■ 1 TQ 6 : FOKEAD+I - 1 ,AU) : NEXT 




: rem 

80 

530 

AD “AD +6 : 1 FAD < ETHEN 3 1 0 

: rem 

212 

560 

GOTO 710 

: rem 

lUtì 

570 

N * 0 : S 3 0 

; rem 

88 

SbO 

PRINT" [<-*->]"; 

:rem 

79 

561 

GETA5: 1 FA? = " "THEN 581 

treni 

95 

56 = 

PRINTCHR$ (20) ; :A=ASC(A$) : IFA = 1 30RA- 44 


ORA- 3 ^ THEN 670 

: rem 

229 

590 

IFA>1 28THENN=-A: RETURN 

treni 

137 

600 

IFAO20THENÒ3Q 

: rem 

10 

610 

GOSUB690 : IFI = 1 ANDT-44THENN® 

-I : PRINT" 


(SIN) (SIN} 11 ; :GOTOb&0 

: rem 

1 72 

620 

GOTO 5 70 

:rem 

109 

630 

I F AC 4 60RA> 5 7 THEN 580 

i rem 

1 05 

640 

PR I NTA$ ; : N-N* 1 0 + A- 4 8 

: rem 

lOb 

6 30 

I FN> 253THENA-2Q : GOSUB 1 000 : GOTO 600 




: rem 

229 

660 

Z = Z+1 : IFZ< 3THEN5B0 

:rem 

71 

670 

£FZ“ OTH ENGOSUB 1 000 : GOTO 570 

:rem 

114 

680 

PRINT” * “ ; : RETURN 

: rem 

240 

690 

Si=PEEK (209)+256*PEEK(210) +PEEK121 1) 



: rem 

149 

692 

FORI 3 1 T03 ; T m PEEK (S%- 1 ) 

:rem 

68 


695 IFT<>44ANDT<>5tìTHENFOKES*-I, 32:NEXT 

: i orr 205 

700 FRlNTLEFTSrl J SIN}" , 1-1} f r RETURN 

:rem 7 


710 PRINT" ICLRHRVS}*** SAVE *** 

l i GIU 1 }" : 436 

7 20 PRINT" {GIU * }NGME FI LE" : INPUTF6 

; rem 254 

7 30 FRI NT : PR1 NT" ( 2 GIU 1 ) (RVS }N (OFF j ASTRO 
0 (RVS)D (OFFl ISCO; {U/Ù ) " :rem 128 
74 0 GETAS; IFA$< >"N" ANDAS< >"D"THEN 740 

;zei n 30 

750 DV-U7* ^A5*"D ,, > : IFDV=tìTHENF5* u G: "+F$ 

uem 158 

7 bQ T$-F$:2K=PE£K(53)+256*PEEK(54} -LEN(T$ 

) ; POKE/B2 , ZK/256 : rem 1 

762 POKE781 , ZK- PEEK (782) * 256 : PQKE7 80 , LEN ( 

TS) :SYS6:>469 : rem 109 

763 POKE78G, 1 :POKB78l f DV: POKE782, 1 : SYS 654 

6^ :rem 69 

763 POKR2S*, S/256 : PQKE253 , S- PEEK (254) *2 36 
:POKE78U f 253 irem 1 2 

766 POKE782,E/256:POKE781 f E- PEEK ( 7 82 ) " 2 56 
;SYS6349b :rem 124 

7 70 IF ( PEEK 1 7 ÉJ 3 ) AND 1 J OR (STAND 1 91 )THENV8t> 

: rem ì 1 1 

775 PRINT" (GIU 1 ì FATTO END :rem 194 

78U PRINT" (GIU * ) REGISTRAI IONE ERRATA - RIP 
ROVA . M : I PDV*TTHEN72Q :rem 62 

761 OPEN 15*8,13: INPUT! 1 3 , El $ * E2$ ; PR1NTE 1 $ 
;E25:CLOSEl5:GOTO720 : rem 103 

782 GOTO 7 20 tre m 115 

84 5 P0KE76U, 1 : POKE781 # DV: POKE7B2, 1 ;SY£6S4 
$6 srem 70 

1000 poKEJ6fa?8 , 1 5 : POKE 36874 , 1 90 ;rem 205 

1002 FOKifli" 1 TG3Q0; NEXTW :rem 117 

1003 PG K E 3 b 8 7 8 ,0: POKE 3 6 87 4 r 0 : RETURN 

:rem 74 

2000 FQRw 1 * 1 5TOUSTEP-1 : POKE 36 8 7 8 , W : PO KE 3 6 9 
76 1 240 : NEXTW :tcm 21 

2002 POKE36 8 76,0: RETURN :rem 119 

Spiders versione per V1C 20 

pfOfrtHaà 1 

1 POKE45, 86 : POKE4b f 24 : POKEsS, 3 : FOKE36 , 23 : 

CLR: SYS7651 * srem 140 

2 DEF FNR t X J = I NT ( b* RND ( 1 ) + 2 ) ; R$ «* { RVS } 

l 22 SPAZI }" :H$«"QGGDQU" :rem 182 

3 GOSUB 12 s rem 22 

4 RESTOSE: FORI * QT06 : READ A ; POKEl + 64 1 2, A; NE 

XT; GQSUB2 3 ; GOSUB Jb : GOSU027 :rem 146 

5 SY56431 ; I FPEEK l 64 23 ) = OTHENGOSUB2B 

:rem 150 
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6 

IFPKBK(b4i!21THiìNb 

; rem 

112 

7 

GOTO 5 

:rem 

165 

8 

FOKEb4 22 , 0 : L=L+ 1 

: rem 

252 

9 

FOKI = OTOb: POKEI+ti^ 12,1 

: NEXT; GOSUB52 : FOR 


I =1 TOiO :SYU6437 :NEXT 

: rem 

182 

TU 

GUSUB51 : 1FL= 4THENGOSUB54 : GOTO 3 




: rem 

139 

n 

W“H-1 : GOTOi 

: rem 

62 


12 P0KE36BÒ9, 242: PRINT” {CLR}{ 3 GIU 1 } 
IBLKU 7 SPAZI} {RVS)SPIDERS{ 2 GIU 1 } 11 

srem 149 

13 PRINT" (GIU ' } i 3 SPAZI }{RVS} PUNTI S 

IGIU 1 }":PRINT" { 3 SPAZI} FORMAZIONE'^ 10 
ÌGIU f }": PRINT" { 3 SPAZ I } ATTACCANTI = IO 
QtGiUT 1 " itero 45 

14 PRINT" { 1 SPAZI) PREMI { RED } FUOCO" : PR IN 

T"l 4 SPAZI HRLKlfGlU 1 }{ 2 SPAZI }PER I 
NI ZI ARE" ;rum 57 

l 5 I FH $<>"000000" THENPR I NT" {GIU 1 } 

i 3 SPAZI )MAK :{ 2 SPAZI ) "H$ ; : rem 151 

1 6 D=2SQ ; 1 02 :S“ 36879: T-7ótì0 :C-3B400:A-0 

: SS * " 00 ÙuQO" : rem 57 

1 7 POKES,D;F*FNR(0) ; POKET+A,B: PGKET+ 22*22 
+ A , B : PGKKT+ 2 2 * A , B ; PO KET+ 2 1 + 22 * A , B 




: rem 

161 

18 

POKE3C+A i F : PQKEC + 22*22+A # F : POKEC+22* 

A ,F 


: POXEC + 2 1 + 22 *A , F 

: rem 

30 

1 9 

IF (PEEK (371 37) AND32) -0THEN22 

treni 

253 

20 

A-A+ 1 ; I FA< 2 2TKKN 1 7 

: rem 

ì 90 

21 

A= U : D*D + 1 + 5* (D=*255) :B^B + 3+6* 

(0=105) 

:GO 


Tul 7 

: rem 

137 

22 

W= 1 :L- ! : RETURN 

treni 

55 


23 POKE368 79 , 1 1 0 : PQKE36 878 , 1 3 : PRINT’ 1 (CLR } 

" : FORI = 1102: PRINT" (YEL) m R$ ; : NEXT: PRINT 
" (CYN)"R$; : lem 231 

24 PRINT" {PUR} "RS; : FORI = 1 TO 2 : PRI NT" {GRN}" 

R$; ; NEXT: FORI =1 TOl 4 : PRINT" { YEL } "R$ ; : NE 
XT ; rem 55 

25 PRINT" {WHT]"R$ SPRINT" (RVS) ROBOT 

{ 2 SPAZI }"SS"{ 3 SPAZI } WEB ";:PGKE81tì 
5,32 :iem 250 

26 R~PEEK (6424) : POKE81 20+R , 0 : POK Etti 21 +r,1 

: RETURN :rem 115 

27 FORJ=ÌT04:FORl=OTOSO:POKE36074 f 205+1 :N 

EXT : NEXT : POKE64 21,0: RETURN ; r em 8 

28 G0SUB51 : GOSUB52 : BS-VAL (S$ ) : rem 40 

2 9 FORI = ITO 300: NEXT; SYS64 53 : IFPEEKt 64 23} = 

0T1ÌEN33 : rem 211 

30 SYS&527: IFPEEK ( 6422) THENPOKK&4 22,0: FOR 
1^1 TO 300 : NEXT: GOTO 3 3 :rem 4 3 


31 IFPEEK (64 23} THEN30 : rem 202 

32 GOTO 2 9 :iem 9 

33 GOSUB52 : GOSUbS 1 ; BS- l VAL(S$ ) -BS ) * 9 : SS =S 

TRStBS+VALiSS)) : rem 97 

34 SS^LEFTS ( "0Q0Q00" , 7-LEN (SS) ) +RIGHTS (SS 

i LEU ($$}-!} treni 28 

35 FORl=lTOS: FQKEI+Bi 71 , ASC (MID$ (S$ f I , ] } ) 

+1 2tf ; NEXT: GOSUB26 :rem 218 

36 GOSUB52 SPRINT" {HOME ){ GIU T } (YEL}"R$" 

{CYN)"R$ treni 236 

3 7 ONWGOSU B J 9 , 4 2 , 4 5 : 1 F W> 3TH ENGOSUB 4 8 

;rem 29 

38 PQKE36869 ,255; POKEB1 64 , W+ 1 7 6 : P0KE81 70, 

L+l 76 : W=W+1 : RETURN :tem 17 

39 PRINT" {HOME ){ GIU 1 }i 3 DESMYELJg 

{ 10 DESjGi 9 DESHCYN)HH{ 10 DESjHH" 

Stero 236 

40 PRINT" {SU) { 6 DES ) {PURjDOOIÌDD {GRN } 

{ 14 DE5 j DDDDDDDODD i IO DES )DODDDDDODD 
ODDO" ìrem 222 

41 RETURN :rom 69 

42 PRINT" {HOME} {GIU 1 H 3 DES } { YEL }G 

{ 11 D£S}G{ 8 UE5) {CYNjHHH t 9 DESjHHH" 

srem B9 

4J PRINT" {SU }{ 4 DES } {PUR jDDD { 5 DES )DDD 
{GRN ) { 10 DES }DDDDD { 3 DES)DDDDD 
i 8 DES} DDDDDDD {DES J DDDDDDD" :rem 254 

44 RETURN ;rem 72 

45 PRINT" {HOME }{GIU * H 3 DES } { YEL }G 

I 12 DESjGt 7 DES } { CYN }HHH { IO DES } HHH 
w ; rem 121 

46 PRINT" {SU} { 5 DES } { PUR } DDDDDDDDDD { GRN } 

{ 11 DES } DDDDDDDDDDDD { 9 DES j DD DDDDDDD 
DDDDD" : r em 235 

4 7 RETURN ; rem 75 

48 PRINT" {HOME) {GIU 1 }{ 3 DES] {YELjGG 

{ 10 DES }GGi 7 DES] {CYN)HHHH( 2 DES } DD 
Dl>{ 2 DESjHHHH" stero 194 

49 PRINT" (SU j{ 6 DES] {PURiDDDDDDDD {GRN} 

{ 12 DES ) DDDDDDDDDDDD { 9 DES 1DDDDDDDDD 
ODDO D" ;rem 160 

50 RETURN :rem 69 

51 S S = " " : FORI = OTQ 5 : S$ =^£$ +CHRS {PEEK (81 72 + 1 

: NEXT : RETURN treni 6 

52 I F PEEK {255} THENPOKEPEEK (254) +2 56*FEEK ( 

255) , 160: POKE2 55,0 treni 1 59 

53 RETURN ;rem 72 

54 GOSUB52: IFVAL(SS) >VAL (HS ) THENH$~SS 

stero 24 T 

55 PRINT" {HOME} {RVS} { 3 SPAZ I } ANCORA? 

{ 4 SPÀZI }S< N" : FORI ”0TO2 : POKE64 19+1,0: 
NEXT ;rem 96 

56 IF PEEK{64? 9j THENPOKE7696 , 1 88: P0KE64Ì 9 



,0 

: rem 

228 

57 

IFPBEK (6420) THENPOKE 7696 ,190: 

: POKE6420, 


D 

treni 

206 

56 

IFPEEK (6421) = 0THEN56 

; rem 

70 

59 

IFPEEK ( 7696 ) - T 90THENSYS652 34 

treni 

BB 

60 

RETURN 

: r g m 

70 

61 

DATAI ,1,16,4, 30, 2 0,60 

: rem 

177 


Spider» versione per VTC 20 

progr^roroa 2 

64 05 :000, 000, 000,000, 000,000,005 
6411 :000, 000, 000,000, 000, 000, Ull 

6417 :0UÙ, 000, 000, 000,000,000, 01 7 
6423 : 000, 000, 000, 021, 022, 023,069 
b429 :OOU, 000, 032, 230, 020,032, 096 
6435 :U93,02b,032, 1 4«, 025, 032,1 35 


38 ^Jf>£fiCOMMOOOftE* 2/85 



64 41 : 166,027,032,072,028,0 32, 1 4 2 

644 7 : 21 4, 026, 032, 103 ,02 7, 0 96, 033 
64 53 : 162,255,2 32,2 24,022, 1 7 6,1 00 
64 59 : 031 , 1 69,044,030,201 ,006,050 
64 6 5 : 206 , 244, 1 69,005, 1 57,044, 1 24 
64 71 : 030 , 1 62, 022,2 02 ,04 6, 01 4, 0 37 

64 77 : 1 89, 04 4, 030, 201 ,00 6,208,24 5 
6483 : 246 , 1 6 9 , 003 , 1 57 , 04 4 , 0 30 , 220 
6489 : 208, 036, 1 62,255,232,224,1 82 
64^5 : 022, 1 76,029, 1 8 9,022,030,0 51 
6501 : 201 ,007,208,244, 1 69,005, 1 67 
6507 : 1 57 ,02 2,0 30, 162,02 2, 202, 1 90 
8513 :048, 012, 189, 022, 030, 201, 103 
6519 :00 7, 208, 246, 169, 003, 157, 141 
6525 :022, 030,032,072,028, 169,222 
6 531 : 1 60, 1 41 ,01 0,030,032,21 4,206 

6537 : 0^6, 032,1 03,027,032,230,07 5 
654 3 : 028, 032, 0 93, 026, 096, 1 73,079 
6949 : 009, 025, 240, 001 ,0 96, 1 73, 1 81 
6565 : 01 6 , 025,141 ,00 9,025,1 73,032 
6 561 : 02 5, 02 5, 208, 034, 1 7 3,04 4, 1 58 

6 567 : 030, 201 , 1 60,208,059,1 60,21 7 
6573 : 000, 132, 252, 200, 1 32, 250, 115 
6 579 : 160,030,1 32,2 51 , 1 32, 263,1 1 3 
6585 : 032, 241 ,025,230,252,230, 1 71 
6591 : 250, lb5, 252, 201 ,132,208,119 
6597 ; 243, 096, 17 3, 065, 030, 201 ,237 
6603 :160, 208, 025, 160, 131 ,132,251 
6609 : 252, 1 36, 1 32,250,1 60,030, 145 
661 b : 132,253,1 32,2 51 ,0 32,241 ,232 
6621 :025, 198,252, 198,250, 165,029 

6627 :252, 208, 245, 096, 169, 001, 174 
6633 : 056,237,025,025, 1 41 ,025,230 
bb39 :025,096,160,000,177,250,179 
6645 : 170, 201, 002, 240, 088, 201 ,123 
6651 : 006, 240, 084, 201 , 009, 1 76, 1 99 

66 57 :080, 1 77, 252, 201, 161, 144, 248 
6b63 : 00 1 , 096, 201, 002, 20 8, 016, 01 9 
6669 : 1 32,2 55, 1 38,201 ,0 06,1 76, 1 53 
6b7 5 : 057,1 69,255,1 41 ,01 3,1 44,030 
6b8l : 1 69,006,208,048,1 38,201 ,027 
6b87 :004,208,G43, 1 bó,250, 224, 1 58 
6b9 J :110, 176, 037, 174, 025, 02 5, 072 
6o99 :2U8, 004, 160,023,208,002,136 
6 70 5 : 1 60,022,072, 1 77,252,20! , 165 
6711 :16ù, 240,003, 104, 208, 016, 018 

6717 :173, 02 5, 025, 208, 004, 160, 144 
6723 : 023, 208, 002, 1 60, 022, 1 04, 074 
6729 *145, 252, 169, 160, 160, 000,1 91 
6735 :145, 252, 096, 177, 252, 201, 178 
6741 : 003, 144, 004, 201, 0U9, 144, 078 

674 7 : 239 ,096,1 73,006,02 5,240, 1 02 
6753 : 001, 096, 173, 013, 025, 141, 034 
6759 : 006, 02 5, 165, 255, 208, 001 , 251 
6765 : 096, 032, 050, 027, 1 60, 000, 218 
6771 : 1 77,254,201 , 002,208,004,1 93 

t>77 7 :169, 160, 145, 254,056, 165, 046 
6785 : 254,233,022, 1 33,254, 1 65,164 
6789 :255, 233, 000, 133, 255, 201, 186 



6795 :031,240,000,1 77,254,201,018 
6801 : 006,1 44, 009,201 , 1 60, 208,1 05 
6807 :054, 169, 002, 145,254,096,103 
681 3 : 201 ,00 4,208,01 6,1 65,255,2 38 

681 9 : 20 1 ,031 ,240,01 0, 1 65,254,040 

682 5 : 201 , 1 32,1 76, 004, 1 62,005,081 

6831 :2u8 i 002,162,004,254,235,01 6 

o837 : 0 31 ,1 89 ,235,0 31 , 201,1 86,0 30 
68 4 3 : 208,008,1 69,1 76,1 57 ,235, 1 1 6 
6849 : 031 , 202 ,01 6 , 238 , 1 69 ,006, 087 
6855 : 1 45, 254, 1 69,255, 1 41 , 01 3, 1 52 
6861 : 144,1 69,000, 1 33,255,1 41 ,023 

666 7 : 021 ,025,096,1 73,008,02 5,047 
6873 ; 240, 001, 096, 173, 015, 025, 255 
6 879 : 1 41 ,00 8,02 5,032,050,02 7,250 
6885 : 1 65,255,240,006,1 6 9,160,200 
6891 : 1 60,000, 1 4 5,254,1 6 9,205,1 44 

6897 : 1 33,250, 1 69,031 ,1 33,251 ,1 84 
6903 *160,000,177,250,201 ,002,013 
b909 *208,038,160,022,177,250,084 
6915 *201 ,160, 208, 006, 169, 002, 237 
6921 *145,250,208,018,201,002,065 

6927 *176, 014, 174, 024, 025, 169, 085 
6933 *006, 157, 184, 031, 157, 185, 229 
6939 *031,238,022,025,160,000,247 
694 5 : 1 69, 1 60, 1 4 5, 2 50,198,2 50, 1 81 
6951 :2u8, 208, 165,255,240,004,095 

6957 *169, 002, 145, 2 54, 096, 169, 112 
6963 * 000, 141, 023,025, 168, 169, 065 
6969 *205,133,250,169,031,133,210 
697 5 : 251 , 1 77 , 2 50, 201 ,006,206 , 1 32 
6981 *006, 169, 1 60, 145, 250, 208, 239 

69tf 7 *009,1 7.6,00 7,201 ,003,1 44 , 1 03 
6993 *003, 238, 023, 025, 165, 250 ,017 
6999 *208, 009, 198, 251, 165, 251, 145 
7005 *201 ,029, 208, 001, 096, 198, 058 
7011 *250, 076, 0b4,027,173, 010, 187 

7017 *025, 240, 001, 096, 1 73, 017, 145 
7023 *025,141,0)0,025,169,031,000 
7029 * 133, 251 , 160, 000, 032, 148, 073 
7035 *224, 165,141 , 1 33,250,177,189 
7041 *250, 201, 003, 144, 026, 201, 186 

7047 *006,176,022,152,024,105,108 
7053 *022, 168, 177, 250, 201, 160, 095 
7059 *240,001 ,096,169,002,145,032 
7065 *250, 169,255,1 41 ,012, 1 44,100 
70 71 * 096, 200, 1 92, 022 ,2 US, 21 9, 072 

7077 *096, 173, Oli, 025, 240, 001, 199 
7083 *096, 173, 018, 025, 141, Oli, 123 
70b9 *025,032,148,224,165,141,144 
7U 95 : 65b, 233, 003,1 76,252, 1 05,240 
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7101 : 003, 170, 169, 030, 133, 251 ,177 
71 07 : 1 69,042,1 33,250,024,1 65,21 0 
7113 : 250, 105,022,1 33,250,1 65,102 
7119 i 251 ,105,000, 133,251 ,202,125 
7125 : 01 6,240, 1 7 3, 025 , 025 ,20b , 1 32 
71 31 : 01 7, 160,021 ,177,250,201 ,021 
71 37 : 004, 240 ‘,004, 1 36, 01 6, 247, 1 04 
71 43 : 096 , 1 69,005,145,250,096,224 
71 49 : 1 69,000,17 7,250,201 ,004,01 4 
71 55 : 240,006,200, 1 92,022,206,007 
7161 1245,096,169,003,145,250,133 
7167 1096,003,007,003,007,031 ,146 
7173 1012,01 2,031 ,000, 126,000,186 
7179 1126,224,128,192,224,000,139 
71 8 5 : 00 8,000, 008 ,000, 008,000,041 
71 91 i 008,004,104,025,031 ,108,047 

71 9 7 il 46,01 8, U 32, 066, 090, 1 02,227 

720 3 : 060, 2 55,060, 06b, 066, 004 ,034 

720 9 : 072,073,054,1 20,1 52,024,024 
721 5 1032,042,149,042,149,110,059 
7221 : 1 53,082,04 2,1 30, 1 4b, 1 Oó, 20 2 

7227 1 056,254, 066 , 06 b , 068 , 1 30 , 1 7 9 
7233 : 068,0 56,254, 124,214,1 70,183 
7239 : 1 30, 1 73,007,025,240,001 , 1 35 
724 5 : 096, 1 73,01 4 , 025,1 41 , 007 ,021 
7251 : 025, 1 6 9,0 31 ,1 33,251 , 1 69,093 
7257 : 205, 1 33,250,1 60,000, 1 77,246 
7263 : 250, 201 ,006,176,074,201 ,23 5 
7269 1003,144,070,072,032,148,058 
7275 :224,104,168,185,023,025,068 
7281 : 168, 177, 250, 201 ,032,208,1 25 

7287 ;015,169,160,160,000, 145,254 
7293 :250,169, 004, 141, 01 0,030, 21 7 
7299 1208,041,201 ,160,240,020,233 
7305 1201 ,002,176,033,174,024,235 
7311 1025,169,006,157,184,031,203 
7317 1157,185,031 ,238,022,025,039 
7323 : 208, 01 7, lb5, 1 4 2, 056, 2 33, 208 
7329 1003,176,252,105,006,145,080 
7335 :250,169,160,160,000,145,027 
7341 :250,165,250,20fe,002,198,222 

734 7 : 251 ,1 98,250,201 ,1 32,208,139 
7353 :162, 165, 251, 201, 030, 208, 178 
7359 :1 56, 160, 000, 177, 250, 201, ìli 
7365 :003,240,004,201 ,005,208,090 
7371 : 021 , 1 70,1 68,1 85,023,025,027 

7377 1168,177,250,201,160, 208,093 
738 3 : 009,1 38,1 45,250,169,160,062 
7389 1160,000,145,250,198,250,200 
7395 1208,219,096, 173, 005, 025, 1 85 
7401 :240,001 ,096,173,012,025,01 2 

740 7 i 141 ,005,025,165,255,208,014 

741 3 i'02b, 1 7 3,021 ,025,240,021, 239 

7419 : 169, 01 6,205,007,028,1 69,077 
7425 1184,109,024,025,133,254,218 
74 31 : 169,031 ,1 33,255,169,255,251 

74 37 : 141 ,01 1 ,144,173,019,025,014 
7443 : 240, 006, 1 69, 000, 141, 01 9, 084 
7449 1025,032,044,029,173,020,092 


74 55 i 025,208,001 ,09b, 1 69,000,01 8 
7461 : 1 41 ,020,02 5,032,064,029,1 1 2 

746 7 : 096,1 73, 01 5,028,208,023,074 
74 73 : 1 7 3,02 4,025,208,001 , 096,064 
74 7 9 : 174,02 4,025, 1 69,160,1 57,252 
7485 : 184, 031 ,1 57,185,031 ,206,08 7 
7491 : 024,025,032, 126,02 9, 162,209 

74 97 : 008, 030, 007, 028, 062, 255, 20 7 
7 50 3 : 027,202,208,247,096,1 7 3,00 8 
7509 : 007, 028, 208, 025, 17 3, 02 4, 03B 
751 5 : 025,201 ,020,208,001,096,1 30 
7521 : 174, 024, 02 5, 169,160, 157,0 58 

7 527 : 184,031 ,157,185,031 ,238,161 
7 533 : 024, 02 5, 032, 126, 029, 162, 251 
7 539 : 008, 094, 255, 02 7, 1 26,007,120 
754 5 : 028, 202, 208, 24 7, 096 ,162,040 
7 551 : 008, 189, 255, 027, 072, 189, 099 

7557 : 007, 028,1 57,255,027,1 04,199 
7 563 : 1 57,007,028,202,20 8,239,21 2 
7 569 : 1 74 , 024 , 025,169,000,1 57,1 82 
7575 : 1 84,031 ,1 69,001 , 1 57,1 85,1 1 0 
7 581 : 031 ,096,1 62,007,1 89,004,1 34 
7 587 : 025, 240,003,222,004,025,1 7 0 
7 593 : 202,208,24 5,1 69, 1 27 ,1 41 , 237 
7599 : 034, 1 4 5,1 73,032,1 45,041 ,23 3 

760 5 : 1 28,208,003,238,020,025,035 

761 1 : 169, 255, 141 ,034,145,169,076 

7617 :01b,044,017,145,208,003,114 
7623 : 238, 01 9,025,010,044,017,040 
7629 : 1 45,208,003,238,021,025,077 
7635 :162, 003, 189, 010, 144,240,191 
7641 : 003, 222, 01 0,1 44, 202, 01 6, 046 

7647 :245, 108,029,025,120, 175,155 
7653 :020, 003, 141, 029, 025, 173, 108 
7659 :021 ,003,141 ,030,025, 169,1 12 
7665 :159, 141, 020, 003, 169, 029, 250 
7b71 :141,021,003,088,096,000,084 


Spidcrs versione per C64 

program» 1 

7911 :120,173,020,003,141 ,096,016 
7917 1032,173,021,003,141,097,192 
7923 1032,169,082,141,020,003,178 
7929 i 1 69, 0 j5, 141 ,021 ,003,165,01 5 
793 5 : 001 , 041 , 251 , 1 33,001 , 1 62,076 
7941 :000, 1 8 9, 000, 2 08, 157, 000, 04 7 

7947 i 036,1 89,000,209,1 57,000,090 
7953 1037, 232, 208, 241, 165, 001, 133 
7959 1009,004,133,001 ,0u8, 162,1 64 
7965 1024,169,000, 157, QUO, 212, 079 
7971 :202,016,250,169,014,M1,059 

7977 1005,212,141,012,212,141,252 
7983 i 01 9,212,165,01 5, 141 ,024,111 
7989 1212,096,173,076,032,240,114 
7995 : 001 ,096,173,083,032,141 ,073 
8001 1076,032,173,092,032,208,166 

8007 : 034 , 173, 080,004, 201, 160, 211 


40 sumrcoMHOOoflt® i/ss 



8<J 1 3 : 208,059, 1 60, 000, 1 32,252,1 20 
801 9 : 200,1 32,2 50, 1 60,004,1 32,1 93 
8025 : 251 , 1 32,2 53,032,1 48,031 ,168 
80 31 : 230,2 52,2 30,2 50, 1 65,252,1 94 

803 7 : 201 ,240,208,243,096,1 73,238 
8043 : 1 1 9 , 004,201 ,160,208,025,056 
80 4 9 : 1 60, 239, 1 3/, 252, 1 36, 1 32, 1 40 
80 55 : 250, 1 60, 004, 1 32, 253, 1 32, 026 
8061 : 251 ,032, 148,031 , 1 98,252,01 3 
8067 ; 1 96,250,1 65,252,208,245,169 
8073 : 096, 169, 001 , 0 56,237,092,020 
807 9 : 032, 1 41 , 092,032,096,1 60, 1 84 
8U85 : 000, 1 7 7,2 50, 1 70, 201 ,002,1 81 
8091 ; 240, 088,201 ,006,240,084,246 

80 97 : 201 , 009,1 76,080, 1 77,252,032 

81 03 : 201 , 1 61 , 1 44,001 ,096,201 , 203 

81 09 : 002, 208, 01 6,1 32,2 55, 1 38,156- 
81 15 : 201 ,006,176,057,169,255,01 9 
81 21 i 1 41 ,01 3,1 44,1 69,006,208,098 
81 27 : 048,1 38,201 , 0 U4 , 208 , 04 3 , 06 5 
81 33 : 1 66,2 50, 224 , 200 , 1 76 , 037 , 226 
81 39 : 1 74, 0 9 2, 0 32,208, 004, 1 bU, 1 U5 
8145 : u41 , 208,002,1 60, 040 , 072 , 220 
81 51 : 1 77,252, 201 , 1 60,240,003,224 

81 57 : 1 04, 208, 01 6, 1 73, 092, 032, 078 
81 63 -.20 8,004,1 60,041 ,208,002,082 
81 69 : ì 60, 0 40, 10 4,1 45,252, 1 69,079 
81 75 : 160, 160,000, 145,252,096,028 
81 81 : 1 77,252,201 , 003 , 1 44 , 004 , 002 

81 87 : 201 , 00 9,1 44, 2 39,0 96 , 02 4, 1 96 

8198 :060, 024, 060, 255, 102, 102, 092 
8195 :255,000, 000, 000,000, 000, 006 

8205 : 000,000, 000, 000, 008,000, 021 
821 ì : 008,000,006,000, 008,004, 04 7 
8217 : 104,025,031 ,108,146,018,201 
8223 :032, 066, 090, 102, 060, 255, 124 
8229 : 060, 066, 066, 004, 072, 073, 1 22 
8235 :054, 120,1 52, 024, 032,042, 211 
8241 : 149, 042, 149, 110, 153, 082, 222 

8247 :042, 130, 146, 108, 056, 254, 02 3 

82 53 : 056, 068, 068, 130, 068, 056, 251 

82 59 : 254, 1 24, 2 1 4, 1 70, 1 30, 000, 1 91 
8265 : 000, 000,000, 000,000, 000,073 
82 71 : 000,000, 000, 000,000, 000, 079 

8277 :000, 000, 000, 000,000,000,085 
8283 :000, 000, 039, 040, 041 ,000,211 
82 89 : 000,076,1 1 0,032, 0 76,1 1 3,24 8 
8295 1032,076,132,032,076,231 ,170 
8301 1030,032,220,034,032,148,093 

8307 i 032, 032, 055, 031, 032, 064,1 05 
831 3 1034,032,235,033,032,164,139 
831 9 :033,032,01 0 , 033 , 09b , 0 32 , 1 07 
8325 1220,034,032,148,032,032,119 
6331 1064,034,032,01 0,033,032,088 

8337 1164,033,096,173,073,032,204 
8343 :240,001,096,173,080,032,005 
834 9 : 1 41 ,073,032,165,255,208,007 
8355 :001 ,u96, 160, 000, 177, 254, 083 
8361 :20l ,002,208,004, 169,160, 14} 



8367 ; 1 4 5,254,0 56,1 6 5,2 54, 233,002 
8373 1040,133,254,165,255,233,237 
8379 :000, 1 33,2 55,201 , 004,1 44,1 56 
8385 1064,177,254,201 ,006,144,01 5 
8391 1009,201 ,160,208,054,169,232 
8397 i 002 , 1 45,254,096,201 , 00 4,1 39 
8403 1 208,01 6, 1 6 5,255,201 , 004 , 036 
8409 1208,010,165,254,201 ,240,01 5 
8415 i 176,004, 162,005,208,002,012 
84/1 1162,004,254,207,007,1 89,026 
8427 1207,007,201 ,186,208,008,028 
8433 i 1 69, 1 76, 1 57,207,007,202,1 35 
8439 i 01 6,238 ,169,006,1 45,254,051 
8445 1169,255,141,013,144,169,120 
8451 1000,133,255,141 ,088,032,1 40 
8457 i 096,1 73,075,032,240,001 ,114 
8463 1096,173,082,032,141 ,075,102 
84 69 i 032,032,1 1 2 , 0 33 , l b5 , 2 55 , 1 38 
8475 1240,006, 169,160,160,000,250 
8481 i 145,254, 169, 1 51 ,133,250, 1 11 
8487 :169,007, 1 33,251 ,lbO, 000, 247 
84 93 1 177,2 50,201 , 002 , 208 , 035 , 1 50 
8499 1160,040,17 7, 250, 201, 160, 015 
8505 :208,006, 169, 002, 145, 25U, 069 
8511 ! 208, 015, 201, 002, 17 6, Oli, 164 
8517 : 174,091 ,032, 1 69,006,1 57,1 8b 
652 3 :112,007,238,089,032,160,201 
8529 :000,169,160, 145, 2 50, 165, 202 
8535 1250, 208, 008, 198, 251 ,169,147 
8541 :004, 197, 251, 240, 005,1 98, 220 
8547 :250,076,045,033,165,255,1 55 
8553 1240,004,169,002,145,254,151 
8559 1096,169,000,141, 090, 032, 127 
856 5 : 168, 169, 151, 133, 2 50, 169, 133 
8571 : 007,1 33,251 , 1 77,250, 201 , 1 18 
8577 il 60, 240, 019, 201 ,006,208,195 
8583 1006,169,160,145,250,208,049 
8389 :009,176,007,201 ,003,144, 169 
8595 1003,238,090,032,1 98,250, 190 
8601 :208,227, 198, 251, 165, 251, 173 
8607 1201,003,208,219,096,173,035 
861 3 1077,032,240,001 ,096,173,016 
8bl 9 1084,032,141,077,032,032,057 
862 5 il 51 ,224,169,003,037,140,133 
8631 :208,001,096,024,105,004,109 
8b37 :133,251, 165 , 141 , 133, 250, 238 
8643 1160,000,177,250,201,003,218 
8649 :1 44, 026, 201, OOb, 176, 022, 008 
8655 :1 52,024,105,040,168,177,105 
8661 :250, 201, 160, 240, 001, 096, 137 
8667 :169,002,145,250,169,255,185 
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8673 : 1 41 ,01 2, 1 4 4,096, 200,1 52,242 
86 7 9 : 040, 208, 219,096 ,173,078,021 
8683 :Q32, 240, 001, 096, 173,085, 096 
8b91 : ù 3 2 , 1 4 1 ,07 6,032,032,1 51 ,197 

8697 :224, 169, 003, 037, 141 ,170,225 
8703 :169, 004, 133, 251, 169, 080, 037 
8709 i 1 33 , 250, 024, 165, 250, 105, 164 
8715 :040, 133, 250, 165, 231, 105, 167 
8721 : 000, 1 33,251 , 202,01 6,240,091 

8727 : 1 73, 092, 032, 208, 01 7, 1 60, 1 93 
8733 :039,177,250,201 ,004, 240, 172 
8739 :0 04, 136, 016, 247, 096, 169, 191 
8745 :005, 145, 250, 096, 169, 000, 194 
8751 :17 7, 250, 201, 004, 240, 006, 1 57 

8757 : 200 , 192, 040, 208, 245, 096, 010 
8763 : 1 69, 00 3, 145, 250, 096, 173, 127 
8769 :074,032,240,001 ,096,173,1 69 
8775 : 081 ,032,141,074,032,169,088 
6781 : 00 7,1 33,251 , 1 69,1 51 , 1 33,1 53 

8787 ;250,160,000, 177, 250, 201, 097 
8793 1006,176,072,201,003,144,179 
8799 1068,072,032,1 51 ,224,104,234 
8805 : 168,1 85,090,032,168,177,1 53 
8811 :250,201 ,032,208,01 3,169,212 

8817 :1b0, 160, 000, 145, 250, 169, 229 
882 3 : 004, 1 41 ,020,004,208,039,02 3 
882 9 :201,160,240, 017, 201 ,002,178 
8835 :176,031,174,091,032,169,036 
8841 ; 006, 1 57, 1 1 2,007,238,089,234 

8847 : 032,208,01 8,1 69, 003,037,098 
8853 : 142,208,002,169,002,105,009 
8359 : 001, 145,250, lb9, 160, 160, 016 
8865 :000,145, 250, 165, 250, 208, 155 


8871 1002, 198, 251, 198, 250, 201 ,243 

8877 1239,208,164,165,251,201,121 

8883 : 004,208, 158, 160, 000, 177, 118 
8889 : 250, 201, 003, 240, 004, 201, 060 
8895 1005,208,021 ,1 70,168,1 85,180 
8901 1090,032, 168, 177, 250, 201, 091 

8907 :160,208,009,138,145,250,089 
8913 : 1 69, 1 60, 160, 000, 145, 2 50, 069 
8919 :1 98,250,208,219,096,1 73,079 
8925 1072,032,240, 001, 096, 173, 067 
8931 1079,032,141,072,032,165,236 

8937 :255,208,026,173 f 08tì,032,247 

8943 :240,021, 169, 016, 205, 007, 129 
8949 1032,169,072,109,091 ,032,238 
8955 1133,254,169,007,133,255,178 
8961 :169,255,141 ,011, 144, 173, 126 

8967 :086,032,240,008,169,000,030 
89 73 i 141 ,086, 032,032 , Ojì 4, 035,1 17 
8979 il 7 3, 08 7, 032, 208, 001 , 096, 104 

898 5 il 69, 000, 1 41 , 087, 032, 032, 230 

8991 1057, 035, 096, 173, 091, 032, 003 

899 7 ; 208,0 01 , 0 96,1 74,091 ,032,1 27 
9003 : 1 69, 1 60, 1 57, 1 1 2, 00 7, 1 69, 049 

900 9 : 000, 1 57,1 1 1 , 007,206,091 , 1 09 

901 5 :032,096,173,091,032,201,168 

9021 :039,208, 001, 096, 174, 091, 158 

9027 1032,169,160,157,112,007,192 
9033 :169,000,157,113,007,238,245 
9039 :091,032,0 96, 162, 007, 189, 144 
9045 :071 ,032,240,003,222,071 ,212 
9051 :032, 202, 208, 245, 169, 004,183 

9057 1044,000,220,208,003,238,042 
9063 1086,032,010,044,000,220,239 
9069 1208,003,238,087,032,010,175 
9075 1044,000,220,208,003,238,060 
9081 1088,032,173,01 1,144,240,041 

9087 :024, 20 1,255, 208, 014, 169, 230 
9093 :032,141 ,011, 144, 160, 128, 237 
9099 :140,004,212, 200, 140, 004, 071 
9105 i21 2,1 41 ,001 ,21 2,206,01 1 , 1 60 
9111 :144,173,012,144, 240, 023,119 

9117 :197,255,208,01 3,1 69,032,007 
9123 : 141 , 012, 144, 168, 140, Oli, Oli 
9129 :212,200, 140, Oli, 212, 141, 061 
9135 : 008, 212, 206, 012, 144, 173, 162 
9141 1013,144,240,030,201 ,255,040 

9147 1208,014,169,013,141,013,233 
91 53 : 144, 160, 1 28, 1 40, 01 8, 212, 227 
91 59 : 200, 1 4 0,01 8,21 2,1 69,01 3,1 83 
9165 1056,237,013, 144, 141 , 01 5, 043 
9171 : 212, 206, 013, 144, 108, 096, 222 

9177 :032, 013, 013, 013, 013, 000, 045 

Spiders versione per C64 

programma % 

} 00 POKB55, 2UU:PQKE56 f 30 : CLR : OQUOGG " ; 

SYSd299 : rètti 1 94 

Ilo FQRI = 9472T0I + 7 i FOKEI f 0 1 NEXT :rem 170 
120 FOR1^3b874TOl+3:POKEI ,0:NEXT:rem 221 
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1 30 

DEF FNK(X) *INT(1 3*RND (1 ) ) 

:RS = " {RVS j 


( 40 SPAZI j " 

itera 

164 

140 

FORI * UTOo : READDF L I ) : NEXT 

itera 

2 54 

Ì=>G 

POKE255 , 0 : POKE82 80, 0 : w = 1 : 

L»liS$-" 

0QOO 


00" 

; rem 

153 

1 bO 

RESTO RE : FORI - ZTO b : POKEl + 8271 , L>F ( I ) : NE 


XTiGOSUBjÌ OiGUSJBbOO 

: rem 

130 

IVO 

SYS 82 90 i I FPEEK (82 82) = UTHENGUSUB390 



: rem 

53 

180 

I F PEEK ( 82 8 1 ) THEN 200 

; rem 

50 

190 

GOTO 170 

; rem 

107 

200 

PO K E 8 2 8 1 , 0 : L-L + 1 iGOSUB770 

itera 

1 79 

210 

FORI = 2TOOi : POKEl + 8271 , 1 : NEXT:GOiiUB780 



itera 

233 

220 

FUMI * 1 TOiU : POKE3btf7 b , i b b : 

SYS 62 95 : 

NEXT 


: IFLO^THENW-W-1 :G0TO1 60 

:rem 

69 

250 

GOSU B7 80 I I FVAL (S$ ) >VAL (H$ ì THENH$ = 

&$ 



ìrem 

85 

240 

PRINT" (HOME j ì KVS i i HHT } M AX 

, PUNTEGG IO : " 


HS " t DLS } - ANCORA? Y-N" 

: rem 

82 

250 

FORI = 8278108280; POKEl ,0:NEXTi rem 

217 

260 

I FPEEK (8276) THENPOKE8 2 7 8 , 

0 : POKEl 05B, 1 


8o ; POKEl 059 , 1 73 

: rem 

12 

270 

I FPEEK (82 79) 1TÌENPOKE827 9 , 

U : POKEl Oib , 1 


73t POKEl 059, 1 90 

i rem 

8 

280 

1 F PEE K (8280) = UTHEN 260 

itera 

165 

290 

I FPEEK ( 1 U 58 J = 1 bbTHENPOKEtìZ 80 , 0 ; GOTO 1 


4 0 

; rem 

224 

300 

SYS651 28 

itera 

150 


31 G PQKE5326U, b;P0KE552Bl , 6 : PRI NT 11 ( C Lk } 14 : 
FORI = ! TG2 : PRINT" { YEL J “R$ ; : NEXT; PRINT" 
(CYN}"R$; :rem 110 

320 FRI NT" l<3>] n R$; :FOKI=ÌTu2i PRINT" tGRN | 
"R$; : NEXT: FORI =!TOl 6: PRINT" (Y£L}"R$; ; 
NEXT :rem 98 

33 U FRI NT" { WHT j " R$ : PRI NT" t 4 SPAZI } 1 RVS } 
i J SFAZ 1 } ROBOT { 4 SPAZI }"S$" 
t 4 SPAZI jWEBtSPAZl] £ 3 SPAZI } {OFF } 

{ 3 SPAZI }"; :POK£2023, J2 : rem 76 
34 0 R=PEEK(82b3) iPQKEl 90 4+R , 0 ; GOSUB7 bQ 

liem 218 

3 SO RETURN :rem 120 

360 0 A” 9 8 4 + VR * 4 U : FORI - B ATOBA+ 1 9 ; I F PEEK ( 
I ) = 1 6 QTHEN NEXT: RETURN :tem 40 

370 PI =1 : PO R 1= HA +39 TO B A + 2 U 5 TE P - 1 : 1FPEFK ( 



I ) = 1 6 U THENNEXT : RETU RN 

itera 

147 

360 

P2*I ; RETURN 

itera 

1 89 

390 

GOSU B7 70 ; BS^VAL (SS ) 

item 

1 1 3 

400 

FORI = 2T06 : POKEl + 82 7 1 , DF U ) /2 

: DF (I ) 

=DF 


(I) * .9; IFDF ( I ) < 1 THRNDF ( I ) = 1 

; rem 

21 5 

4 l 0 

NEXT 

itera 

212 


4/0 VR = 3 : GOSU S 3 6 U : I F I = BA+ 20 THEN VR = 2 ; GGSU B 
360 i IFI=SA+2GTHEN48G :rero 35 

430 FORI =VRTOb : POKEP 1 , 16G:PQKEP2 f 1 60:P1=P 
ì +40: P2*P2 + 4U: POKER 1 , 4:POKEP2, 4 

:cem 135 

440 FORJ=lTU2G:NEXT;NEXT:POKES2b2,2 

:cem 201 

4 SO 3YSb296;IFPEEK(8282)=OTHEN420 

: t etti 213 

4t)0 IFPEEK (82bl ) THENPOKE8281 , 0 : FORI = 1 TOSO 
0 ; NEXT : GOTO 480 ;rem 149 

4/0 POKEl 0 4 4, 160: GOTO 4 SO : rem 98 

480 GOSU B 7 8 0 ; GOSU d 7 7 G ; B5 = < VAL(S$ ) - BS ) * 9 ; S 
$=STR$ (BS+VAL, (S$ ) ) itera 7 

490 S$-LEFT$ fOGGQOO", /-LEN (SS) J^RIGHT? (S 
$,LEN(S$)-1) JGOSUB310 itera 160 

300 PRI NT" 1HOMEHGIU* kYEL)"R$" (GYNl"R$ 

itera 247 

SI 0 QNWGQSUB33U, 590, 650: IFW> 3THENGOSUB7 1 O 

itera 11 


52 G POKE53272 , 24 : POKE201 3 # w>17b; POKEl 996, 

L+l 76: W**+l : RETURN ; rem 244 

530 PRINT'MHOMEHGIU 1 j{ 7 desHyelig 

l 20 UESiG" itera 200 

3*0 PRINT" (CYNH b DESJHHI 20 DES)HH" 

ttem ZI 

550 PRINT" <SUÌt 14 DESk<J>jDt 7 DESjD" 

:rem 123 

560 PRI NT" { 12 OESHGRNJDDDDDI S DESJDDDD 
D" itera 229 

570 PRI NT" { SO H 10 DES } DDDDDDDDDDDDDDDDD" 

itera 164 

580 RETURN itera 125 

590 PRI NT" (HOME) (GIU 1 ) l 7 DES}(YEL)G 

i 20 PESJG" itera 206 

600 PRINT" {CYNJt 6 DESjHH( 20 DESjHH" 

;rem 24 

610 PRINT" tSU } { 14 DES 1 i<3> j DUDOODODD" 

:rem 137 

620 PRINT" { 12 DESHGRN}DDDDDDDDDDDDD" 

itera 87 

630 PRINT" iSUH lu DLS}DDDDDDDDDDDPDUDDD 1f 

itera 161 

840 RETURN :rem 122 

6 50 PRINT" (HOME H GIU 1 H D DEE } { YEL )G 

( 22 UES iG" : rem 232 

660 PRINT" (CYNJi 5 D£S}HHH( 20 DES ) HHH" 

itera 145 

670 PRINT" (SU)( 12 DES} U 3> ) DPOODDDDDDD" 

itera 221 

6e0 PRINT" i 10 DESHGRN jDDDDDDUDDDDDDDD" 

;rem 171 

690 PRINT" (SU H 8 DES IDDDDODDDDDDDDDDDDDD 
" itera 245 

700 RETURN itera 119 

710 PRINT" (HOME H GIU 1 }( 3 DKS}(YELjGG 

( 22 DESjGG" itera 86 

720 PRINT" {CYN H 4 DESjHHHHl 20 DES j HHH K" 

: rem 1 

730 PRINT" (SU )( 11 DES] L<3> 1 DDDDDDDDDDDDD 
D" itera 137 

740 PRINT" ( 9 DES } { CRN } DDDDDDUDDDDDDDDDDD 
" itera 87 

750 PRINT" (SU H 7 DES j DDDDDDDDDDDDDDDDDDD 
ddd" : rem 161 

760 RETURN tz&m 125 

7 70 S$ : FORI =UT05 : S$=S§ +CHRS (PEEM20O0 + 

I >-l 28) :NEXT; RETURN itera 46 

780 POKE2S5,G:POKE82bQ, O: RETURN itera 119 

790 DATA B,0 f 1 6,4, 30,20,60 itera 240 
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Il Jacksontano ha il Basic 

Video Basic, corso su cassetta per parlare subito 

Oggi è davvero facile imparare il Basic, con e tu, senza fatica, presto e bene, impari 

Video Basic il corso su cassetta che ti permette a dialogare col tuo computer, sia un VIC 20, 

di programmare subito il tuo computer È facile: un Commodore 64 o un Sinclair 

tu chiedi, lui risponde, tu impari. Video Basic è in edicola. Provalo subito. 

Passo dopo passo. Sul tuo schermo 

appaiono le domande, le risposte, gli esercizi Oggi il Basic si impara così. 



col tuo computer. 


omaggio 
una fantastica cassetta giochi. 


QOH13 OddHtìB 


VIDEO BASIC 
abbonarsi conviene 


(5 splendidi raccoglitori 
insieme al corso completo) 



Video Basic io trovi in 
edìcola a lire 8,000 il 
fascicolo con cassetta e 
manuale. Ma abbonarsi 
conviene; con 165,000 ■ 

lire avrai infatti il corso 
completo, a casa tua, e 5 splendidi 
(e pratici) raccoglitori del valore 
di 40.000 tire. 

NON PERDERE L'OCCASIONE! 


l6K;4aK/PLUS 


Desidero abbonarmi a Video Basic 

0 Per il computer Commodore VIC 20 
0 Per il computer Commodore 64 
0 Per il computer Sinclair Spectrum 



Spedire a: 
JACKSON 
Via Rosellini, 12 
20124 Milano 


Allego lire 165.000 con assegno - - — della Banca o allego fotocopia dello ricevuta di 

versamento con vaglia postale intestato a GRUPPO EDITORIALE JACKSON - MILANO, che mi dà diritto di ricevere a caso 
mia il corso completo e 5 raccoglitori. 


Nome 

Vio_ 


Cognome. 


hL 


CAP 


_Gttà 


Provincia 





Ondate ed ondate di nemici Zir- 
con la ni cercano di di scenda re 
sul vostro pianeta nella speranza 
di conquistarlo. La vostra unica 
difesa consiste nel cannone pul- 
sar, montato salta nave spallale 
ai vostri comandi e io grado di 
distruggere gli alieni. Attenzio- 
ne, però, a non lasciar venire 
troppo vicino gli alleni: si auto 
distruggeranno, coinvolgendovi 
nell'esplosione. Un bel gioco 
d'azione per II C64 ed II V1C Ine- 
spasso che richiede l'uso di nn 
joystick. 


M oltitudini di alieni di una lontana 
galassia hanno abbandonato il loro 
pianeta morente in cerca di una nuova 
base per la propria civiltà 11 loro obbiet- 
tivo: la terra. Contro Je ondate di attac- 
canti voi manovrate un'astronave a pro- 
pulsione nucleare, armata di un potente 
cannone pulsar. Benché siale vittima di 
una notevolissima disparita numerica 
net confronti degli attaccanti, questo 
handicap viene in parte colmato dalla 
potenza del cannone appositamente 
montato sulla nave: un colpo diretto è 
in grado di disintegrare una nave ne mi 
ca. Conoscendo quanto sia micidiale la 
vostra arma, gli zìrconiani a volte entre 
ranno addirittura in collisione tra loro 
nel tentativo di evitare i vostri colpi. Le 
loro navi non sono dolale di armamento 
per rispondere al vostro fuoco, ma 
ognuna di esse possiede un congegno 
di autodistruzione: quando una nave zir 
conia na raggiunge una certa profondità 
questo congegno si attiva e la nave 
esplode. Se vi trovate nelle vicinanze, 
potrete rimanere coinvolti nell'esplosio- 
ne e perdere così una nave delle tre di 
cui disponete. 

Inizialmente vi viene richiesto il livello 
di gioco, da uno a cinque. Usate il Joy- 
stick per muovere la vostra nave a de- 


stra e a sinistra, e premete il pulsante 
di fuoco per sparare. Riceverete 100 
punti per ogni nave zirconi a na abbattu- 
ta, ma 20 punti vi vengono sottratti per 
ogni nave che raggiunge il suolo. Esisto- 
no numerose ondate di attaccanti: per 
ognuna di esse che felicemente distrug- 
gete il programma visualizza il numero 
di ondate che avete eliminato. Più a 
lungo giocate piu difficile diventerà 11 
gioco. 

Note alla versione per C64 

Chi non disponesse della cassetta alle 


gata alla rivista dovrà usare MLX per 
digitare il programma, usando i seguen- 
ti parametri: 

indirizzo iniziale = 49152 
indirizzo finale 51479 

il programma dovrà essere caricato dal- 
ia cassetta con l'istruzione: 

LOAD'M.l 

ed attivato con SY549152. 

Buon divertimento! 


Cosmic Combat versione per VIC 20 

progra«sa 1 

1 FOKEJbb /9, l05:POK£5b,2tì:POKEb2,zti:PJUNT 

w (CLKj iWHVj" :reni 1 bfc 

2 FORI'* 7 1 1> b VO 7 2 7 1 : K tADN : PGKET , U : NEXT 

: rem Ì2 


3 FURT=74z4Tu /<i3t :PUKBT,t):*U2XT :rem 1 2tì 

4 UAYA/4, 24, z4 # 44, I b9 , 255 , 2 55 , l 29 , 1 29 , 1 53 

t lls9 f 4jl,45b,lb9flbi,l29 : rgn 20 b 

5 DATACI, 238 , 1 Jt>, 2 32,40, 23b ,0, 255: rem io 
t> LJATAU, 2Jb, 1 70,174, Ì72, 2 j 4,U, 235,Q,2zb , 1 

30, i j 9, l 30,22b ,Q, 224 : rem 2ìtì 
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7 DATALI , B J4 , 1 Jt),k!3a f 4 2,2j4,ù,Ìas,U, 1 B7,l 7 
Ù,lb7,lb0,lb3,0,23b tieni 1B3 

B DATAii, 1 Jto , 4, 1 90 , 1 32 , 1 3t>, b , ì 2d , 3, d , W , b , B 

:rem 5? 

* DATAI 40 , b4, 32, 1 b,b,4, , 1 ,1 , 2 , 4 , 8 , 1 b , 32 , 

64,1 2d ;rem 39 

10 DATAU, 0,0,255,0, 0,0, U,0,25:>,u, 255,0, 25 
3,0,235,0 t :rem 135 

lì DATATI/ ,99,99, 99,1 03, 103, 103, 127,12, 7 2 
, 12,1 2, 2b, 26, 28, 2 8 : rem 1 Jb 

1 2 DATAI 27,3,3,1 27 ,96,96,96,1 27, 126, b,b,l 
2b, 7,7,7,127 : rem 111 

1 3 DATA 9 6 , 102, 102, 127, ò,b, fa, 0, 127,90,96,1 

27, j, 3, 3, 127 : rem 94 

1 4 DATAI 2 7, 9o,9o, 127, 99, 99, 99, 127, 127,3,3 

,7, 14,12,1*, 12 :rem 210 

ì 3 D AVA 0 5,35,35, o3, 99, 99, 99, 127,1 2/, 99, 99 
,127,3,3,3,127 :rem 241 

1 6 FORT» 7 b 3 1 TO 7 0 5 1 : READC : POKET , C : NEXT 

:rem 99 

17 PAINT" IrtHTj CARICAMENTO SECONDA 

{ 3 EPA2Ì JPARTE" ; FORT- 1 T04 : PRINT: NEXT 

srem 2lb 

1 5 LQ^+ChR^ ( 34 J +CHK? t 34 J + " , 1 :"+CHR$ (1 

31) srem 93 

21 FORI - 1 TOLEN ( ) : POKE 030 + 1 , ASC ( MXD $ ( S $ , 

1J ) :NEXTSP0KE19B,1:END srem 90 

255 ,0 ;rem 240 


1 MT$ &4 * FORZA D 1 ATTACCO" : GOTO 93 s rem 66 

2 POKEZ+CL, o : POKEZ ,32: Z=FNF (SL) +SK + Z : POKE 

Z+CL,2:PQKKZ,1 ; RETURN : rem 3b 

3 POKECL+EL , 2 ; POKEEL , 1 :PGKECL+El ,2:POKEEl 

,1 S POKECL+ET , 2 : POKEBT , 1 : PQKEL+CL , 5 : POKE 
WU srem 239 

4 RETURN ; rem 20 

b M-CL+T: POKEM- 23,7: POKET- 2 3 , 9 : POKEM+23 , 7 

S POK£'i‘+ 2 3,9: POKEM- 2 1 , 7: POKET- 21 , 1 0 

: r em 1 0 

0 PQKEM+21 , 7 : POKET+2 1 , 1 0 : PGKEM- 22,7; PQKET 

-22,0: POK EK+ 22,7 : FOKET+22 , 0 : RETURN 

:rem 73 

7 DiMJS 12,2} : POKE 37 1 39,U;DD=371 54 :PA=371 3 
7 ; PB= 1 7 1 52 :CL= 30720 :F0=3b 077 :CM«30b69:S 
d=3oo79 : rem 201 

a FORI -GT02 : FQRJ =oTO^ : READJS v J , I } : NEXT: NE 
XTlDATA- 1,0, 1,-1 ,0, 1,-1 ,0,1 :rem bl 

9 POKECM,255 :POKEDD,l 27 : POKESB , B : S 1 » 3btì7b 

ìV-3bo78:S2 = 3b674 : rem 1 99 

10 DEFFNF (Tj »INT(RND U 1 *T>+1 ì DEFFNK (T) =PE 

EK (EL) +PEEK (ET) -i-PEEK (El ) l tetti 133 

1 1 DEFFNX (T) = ( (PANDI 0) =T) - ( ( PEEK ( PB ) AND 1 2 

0) *=U) ; DEFFNY (T) =~ ( (PAND32) =T) :rem 4b 

13 PRINT' 1 {CLR ) [ 2 DEE jBCD M SC" { HOME } «TAB ( 1 

3 ) 11 KFG U 2- DE : L“ 0 1 3 0 ; K=L : C «L ; POKEC L+L , 5 : 
POKEL i 0 : rem 196 

14 POKEV, 1 5: FORT- ITOSI 2 : NEXT :rem 22 

1 5 EL-7726 : PDKECL+EL , 2 : POKELL, 1 :El=77 34:P 

O KEE 1 +CL , 2 ; POKEE 1 , 1 : ET* 774 1 : POKECL+ET, 
2 s rem 103 

la PQKEET, I :A=A+3 trem 227 

17 P»PEEK(PAj :X-FNX (O) :FR=FNY(G) slFX-QGGT 
023 : rem 225 

19 K»K+X:IFK = bll9ORK=tjl42G0TU^J :rem 122 
21 L-L.+X : POKEL +CL, 5: POKEL, Ut POKEC+CL, 0 : PO 
KEC ,32 : C=L : rem Ibi 

K a L: POKEdl 1 , 0 ; ÌEFR=0 THENIFw-UG0TO29 

: rem 1 1 8 

2 5 1 F W* 1 THEN PQ KES 1 , 0 : FORT -FTOF- 33USTEP- 22 

: POKET+C L , 0 : PQKET ,32: NEXT : W = U : GOTO 29 


:rem 224 

27 IFw^UTHENF«E-22:POKE£l , ì 9tì : FQRT=FTOF- 3 
30STEP- 22 : POKET+CL, b : POKET , b : NEXT : = 1 

sigi 233 

29 IFFNK (0) > JGOTQ43 :rem 107 

3 ì IFQ= 1 00^039 : rem b 7 

33 IFQ* 2G0T049 :rem 91 

35 Z=EL : GOSUB* : EL=Z : IFEL> bl 20THENED»BL:GO 

T069 :rem 169 

37 Q* 1 ; GOT0 1 7 :rem 4 

39 Z=E 1 :GOSUB2:El=ZslFEl>Bl20THENED*El : GO 
TOb9 :rem 65 

41 Q= * s GOTO 1 7 :rem U 

43 IFPEEK (EL) > 1 TH ENEO =EL: GOTO 53 srem 205 

4 5 IFPEEK(El) >1THENED=E1 : GOTO 5 3 ;rem 153 

47 1 FPEEK ( ET } > 1 THENED -ET : GOTO 53 :rem 22 5 

49 Z=ET:GOSUB2:ET=Z: IFETXJl 20THENED =ET :GO 

T069 :rem 206 

51 Q“G : GOTO 1 7 : rem 255 

53 V*ED : POKEl>CL, 2 : POKET , 1 : GOSUB9 : POKECL+ 
T- 1 , 7 ! POKET- 1,11: PQKECL+T+ 1,7; POKET+ 1 , 



Tl 

: rem 

30 

55 

POHT-^bOTOl bOSTEP-3:POKEBl 

, T: NEXT: 

POKE 


S 1 , 0 : I FXM= DTHEN I FSC > 5 0 U 0THENDE- DE- 

1 :m 


= 1 

: rem 

21 b 

57 

SC^SC + 1 0 b : HE=HE+ 1 00 : 1FHE> 200ùTHENKK c KK 


+ 1 s HE= 0 : GGSU Bl 0 7 

: rem 

174 

53 

A=A+I : I FA>24THENA=0 : GOTO b 7 

: rem 

246 

61 

I FEL * EDTHENEL^FNF ( 7 ) + 7 7 27 

; rem 

174 

bJ 

1 FE ì «EDTHENE 1 -=FNF ( 7 ) + 7734 

;rem 

120 

65 

I FET=EDTKENET=FNF [ 1 4 ) +7727 

: rem 

240 

67 

PRINT"tCLRK * OES]BCD"SC" 

tHDKE / ”TAB [ 1 


ij "EFG 11 2-DE: GOEUB3 : GOTOl 7 

: rem 

19 

69 

FORT-- JT03: IFT+ED>tìl 1 9ANDT+ED< bl 4 2 THEN 


PQKEC L+T+ED , J : PO KET+ED , 1 2 

; rem 

100 

71 

NEXT: PO KES 1 f 0 : 1FSOOTHENSC 

=SC- 20 : HE-HE 


-2U 

:rem 

4 

73 

POKEFu,l30:FORN = 1^>TO3STEP- 

2: POKEV, 

N ; FQ 


RT- 11099: NEXT: NEXT : POKEFq, 

0: POKEV, 

15 



:rem 

b9 

75 

1 FL>ED- 4 ANDL< ED + 4G0T0 79 

;rem 

91 

77 

GQTObl 

: rem 

14 

73 

DE=DE+ 1 : T=L: GOSUD5 

: rem 

33 

bl 

POKES 2,235: FORT® 1 TGbb3 : NEXT : FQKES 2 

, 22b 


: FORT» ì T0 12 4 5: NEXT 

; rem 

4 

33 

POKES* , 0 : IFDE= JTNEN1 0 j 

; rem 

0 

85 

GOTO 13 

:rom 

10 

37 

AW-AW+1 

:rem 

5b 


89 POKESB ,10 5: PRINT 1 " iCLRi " : POKECM, 240 


: rem 80 
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91 LG=LENtSTRB(ivWn + LEN IMT$) :GL«LG/< : PR1N 
V"lCLR)i 9 GIU*) n TAB ili -GL) MT$AW 

: rem TOtì 

9z FORT- 1 T026d7 : NEXTi FQXFCM , 2b5 : PGKLSB , b ì 
G0TO13 :retn l 

9j PUKE36*/9,105;PRINT" {CLRM WhT i "TAB 1 9X I 
"CGSM1C COMBAT^SPC O 00 j "LIVELLO 11 SPC( 36 
J " 1 -2-3-4- 5" :rem 22 

95 FOKT=7724TG7742; POKET , 3< ; POKET+oB , 32: P 
QKET+3,1 &U;POKET+91 , 1 60 : GETK$ : IFK$< >" " 
GOTO 9 ^ : rem 1 33 

97 NEXT ; FURT= 774 5T(J 1 7 *. 73TEP- ì : POKBT , J* : PO 
KET+ b b , 3 2 : POKET- S r ì bO : POKET+ b 5 , ì bU : NEX 
T ; GOTO y 5 s rem 213 

99 KK»VAL|KS) :IFKK*UORKK>5THENNEXT 

; rem 2U4 

101 GOSUdlQV SPRINT" tCLR j " ; GOTQ7 srem 242 

1 0 3 PQKEDD, 255 : FORT" 1 T02t»4 / : NEXT: POKECM, 2 
40 ; PRINT" {CLR P 5PC ( 94 )”F1NE GIOCO" 

:rem IBS 

105 FORT= 1 T0264 7 ; NEXT: CLR: GOTO 1 : rem <37 

107 lFKK<5YHEHSK-2t -KK s IKK*2> +ì 

srem 17 

1 09 lFKK=iTHKN3Ka4< :SL-3 uem 232 

111 1FKK=4THENSK-41 :SL-5 :rem 111 

113 IFKK>4THENSK«b4:BL*3 :xem 233 

115 RETURN :rem 1 1 9 

Cosale Combat versione per C64 

491 52 : 076, 086, 196, 000 ,01 5,01 5, 132 
491 59 : 001 ,000,000,000,000,000,007 
49104 : 000, 004, 000, 001 ,024,060,101 

491 70 : 000, 01 5,001 ,2 54,000,000,032 
49176 : 000, 000, 000,000,093,067,1 74 
491 S2 : 079, 092, 099,032,058 ,032,1 26 
49198 : 000, 083, 072, 073, 080, 083, 1 71 
49194 :032, 058, 032, 000, 065,084,057 

492 00 :084, 065, 067, 075, 032, 032, 147 
49208 : 000, 000, 000, 032, 032, 032,1 50 
49212 :U32, 032, 032, 032, 032, 032, 252 
49218 : 032, 032, 032, 032, 032, 032, 002 
49224 : 000, 000,000,000,000,000,072 
49230 :173, 000, 220, 041, 015, 201, 216 
<19236 : 01 5, 240, 0U8, 201, 011, 240, 031 
49242 :007, 201,007, 240, 045, 076, 1 54 
4 9248 : 182, 1 92, 1 73, 000, 208, 056, 1 39 
49254 : 233, 001, 144, 003, 076, 118, 165 
49260 : 1 92 ,1 41 ,000,208,206,01 6,103 
49266 1208,076,182,192,170,173,091 
49272 :016, 208, 041, 001, 240, 003, 117 
49278 : 142,000, 208,236,016, 1 92,1 52 
49284 1144,048,142,000,208,076,238 
4 92 90 il 82, 1 92, 1 73, 000, 208, 024, 149 
49296 :105,001 ,176,003,076,160, 153 
49302 il 92, 141, 000,208, 238, 016, 177 
49308 1208,076,1 82,192,1 70, 1 73,133 
49314 1016,208, 041, 001, 208, 006, 1 30 
49320' i142, 0U0, 208, 078, 182,1 92, 200 
49326 1236,017,192,176,003,142,172 
49332 1000,208,173,014,192,208,207 
49338 1015, 173, 000, 220, 041, 016, 139 
49344 :208, 008, 169, 001, 141, 014, 221 
49350 1192,076,203,192,096,173,106 
49356 1016, 208, 041, 001, 208, 011, 1 77 


49362 : 1 73,01 6,208,041 ,239,141 ,004 
49368 : 01 6,208,076,229,1 92,173,086 
49374 1016,208,009,016,141 ,016,116 
49380 : 208,173,001 ,208,233,022,049 
49386 il 41 ,009,208,1 73,000,208,205 
4 93 92 ! 1 41 ,008,208 ,1 69,001,1 41 , 1 40 
49398 i 01 4,1 92,076,023,193,169,145 
49404 : 033,1 41 , 004, 21 2 , 1 74 ,073 , 1 21 
4941 0 : 1 92,202,1 42,073,1 92,142,1 77 
49416 : 001 ,212,173,009,208,056,155 
49422 : 233,002,141 ,009,208,201,040 
49428 : 030, 1 4 4,01 7, 1 73,030, 206, 1 1 0 
49434 : 141 ,00 3,1 92,041 ,01 b, 240, 147 
49440 : 006, 032, 068, 1 93,076,040,1 9) 
494 46 : 1 93,096,1 69,1 96,141 ,252,061 
4 9452 : 007, 169, 200, 141 ,073, 192,0 58 
4 94 58 : 169,000, 1 41 ,001 , 212,1 41 ,202 
49464 : 000, 21 2, 141 ,009,208,141 ,255 
494 70 : 008, 208,1 41 ,01 4, 1 92,096,209 
4947 6 : 173, 003, 1 92, 041 ,01 4,141 , 1 20 
49482 : 00 3, 1 92,032,128,1 93,208,062 
49488 : 0U 1 ,096,1 41 , 008 , 1 92 , 01 0 , 0 1 6 
49494 : 1 41 ,01 0, 1 92 , 1 72 , 008 , 1 92 ,033 
49500 : 169, 197, 145, 2 51, 160, 01 5,005 
49506 : 032, 1 52, 1 93, 032, 003, 1 97, 1 95 
4951 2 : 173,003, 1 92,073,255,04 5,077 
49516 : 01 6, 208, 141 ,016,208,172,103 
49524 : 008, 192,1 52,024, 105,1 92,021 
49530 : 145,251 ,032, 16 I , 1 93,096,232 
49536 : 201 ,002,208,003,169,001,200 
49542 :096, 201, 004, 208, 003, 169, 047 
49548 : 002, 096, 201 ,008,208,00 3,1 46 
4 9554 : 169, 00 3, 096, 1 69, 000, 096, 1 67 
49560 : 162,255,202,208,253,1 36,088 
49566 : 208, 248, 096, 160, 001, 177, 024 
49572 :253, 105, 005, 1 45, 253, 20 1 , 1 02 
49578 :010, 144, 01 9, 056, 233, 01 0,1 30 
49564 : 145,253,200, 192,007,240, 189 
49590 : 009, 1 77, 25 3, 1 05, 001 , 1 45,1 04 
49596 : 253, 076, 169, 193, 173, 022, 050 
49602 : 1 92,105,048, 1 41 ,01 7,004, 1 89 
49608 :173, 023, 192, 105, 048, 141 , 114 
49614 :016, 004, 141 , 01 6, 004, 173, 048 
49620 : 024, 192, 105, 048, 141, 01 5, 225 
49626 : 004, 173, 025, 1 92, 105, 048, 253 
49632 : 1 4 1 , 01 4 , 004 , 1 73 , 026 , 1 92 , 006 
49638 : 105,04 8,1 41 ,01 3,004,0 96,125 
49644 : 032,00 3, 1 94, 009, 030, 141 , 1 33 
49650 :01 1 ,1 92,032,003, 1 94,041 , 203 
496 56 : 031 ,1 41 ,01 2,1 92,096,032,240 
49662 : 003,1 94,041 ,003,096,169,248 
49668 : 255 , 1 41 ,015, 212, 169, 128, 156 
49674 : 1 41 ,01 8 , 2 1 2 , 1 7,3 , 027 , 21 2 , 025 
49680 : 096, 032, 001 , 1 9o, 172, 027, 028 
4968b :1 92, 136, 032, 003,1 94, 041, 108 
496 92 :031, 201, 031, 208, 01 4, 032, 033 
49698 : 003,1 94,024, 1 05,001 ,041 ,146 
49704 :003,170,202,13tì,153,074,01 2 
4971 0 : 1 92, 1 85,074, 1 92, 141 ,077,1 39 
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49716 : 1 92 , 173 , 027 , 192 , 010 , 141, 019 
49722 : 010 , 192 , 168,17 3 , 077,1 92,1 02 
49728 : 201 ,001 , 240 , 007 , 201 , 002,204 
49734 : 24 0 , 095 , 076 , 174 , 194 , 177, 21 8 
49740 = 247 , 056 , 233 , 001 , 170 , 144,159 
4 9746 : 003 , 076 , 102 , 194 , 145 , 247, 081 
49752 : 173 , 01 8 , 192 , 073,2 55 , 045,076 
49758 = 016 , 208 , 141 , 016 , 208 , 076,247 
49764 : 174 , 194,17 3,01 6 , 208,04 5,1 42 
4 9770 : 01 b , 192 , 240 , 006 , 138 , 145, 077 
49776 = 247 , 076 , 1 74 , 194 , 236 , 016,031 
49782 : 1 92 , 144 , 053 , 138 , 145 , 247,01 3 
49788 = 076 , 174 , 194 , 177 , 247 , 024,248 
49794 = 105 , 001 , 1 70 , 1 76 , 003 , 07 b , 1 49 
49800 : 152,1 94,14 5,24 7 , 173 , 016,039 
49806 = 208 , 01 3 , 01 8 , 192 , 141 , 016,218 
4981 2 = 208 , 076 , 174 , 194 , 173 , 016,221 
49 « 1 8 = 208 , 045 , 018 , 192 , 208 , 006,063 
4982 4 : 138 , 145,2 47 , 076 , 174 , 194, 1 10 
49830 = 236 , 017 , 1 92 , 176 , 003 , 138,160 

498 36 : 145 , 247,1 77,24 9 , 024, 10 5,095 
49842 = 001 , 145 , 249 , 201 , 230 , 144,124 
49848 = 003 , 076 , 059 , 1 95 , 1 77 , 249,175 
49854 = 201 , 060 , 1 76 , 001 , Ù 9 b , 1 73 , 1 29 
4 9860 = 030 , 208,041 , 01 5 , 208 , 001 , 1 87 
49866 = 096 , 141 , 003 , 192 , 041 , 001,164 
49872 = 240 , 004 , 032 , 059 , 195 , 096,066 
4 9878 : 173 , 003 , 192 , 041 , 002 , 240,097 
49884 = 005 , 169 , 001 , 032 , 251 , 194,104 
49890 = 173 , 003 , 192 , 041 , 004 , 240,111 
49896 = 005 , 169 , 002 , 032 , 251 , 194,117 
49902 = 173 , 003 , 192 , 041 , 008 , 240, 1 27 
49908 = 005 , 169,00 3 , 032,2 51 ,1 94,1 30 
49914 = 096 , 141 , 008 , 192 , 010 , 141,070 
49920 = 01 0 , 1 92 , 1 72 , 008 , 192 , 169,231 

499 26 : 197,1 45,251 , 1 69 , 129,141 ,014 
49932 = 011 , 212 , 160 , 020 , 032 , 152,087 
49938 = 193 , 169 , 128 , 141 , 011 , 212,104 
49944 : 1 60 , 020 , 032,1 52 , 1 93 , 032 , 1 01 
49950 = 003 , 197 , 169 , 001 , 1 74 , 008,070 
49956 = 192 , 01 0 , 202 , 208 , 252 , 073,205 
49962 = 255 , 045 , 016 , 208 , 141 , 016,211 
49968 = 208 , 1 73 , 008 , 192 , 166 , 024,053 
49974 = 105 , 192 , 145 , 251 , 096 , 172,247 
49980 = 027 , 192 , 169 , 199 , 145 , 251 ,019 
49986 = 169 , 129 , 141 , Ul 1 , 212 , 152,1 12 
49992 = 010 , 168 , 1 / 7 , 247 , 056 , 233,1 95 
49998 = 01 2 , 145 , 247 , 176 , 01 1 , 173,074 
50004 : 01 8 , I 92 , 073 , 255 , 045 , 016,171 
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: 1 92, 1 41 ,021 , 208 , 1 41 , 027,1 50 
: 1 92 , 1 60 , 060 , 032,1 52, 1 93,21 5 
: 1 73 , 005, 1 92 , 02 4, 1 05 , 003, 1 90 
: 1 41 , 004,1 92,1 41 , 005,1 92,1 1 3 
: 238 , 006,1 92 , 032 , 235,1 95,086 
: 1 69,1 80, 1 41 , 000 , 208,1 69,061 
: 230, 1 41 ,001 , 208,1 69 , 254,203 
; 045, 01 6 , 208 , 141, 01 6 , 208, 096 
: 1 69,031 , 1 41 ,021 , 208, 1 69,207 
: 01 0,1 60, 02 0 , 032,1 52,1 93,041 
: 1 70 , 202,1 38,20 8 , 246 , 032,220 
: 044 , 200 , 076 , 089 , 196 , 032,1 23 
: 236, 1 93, 1 72, 01 0,1 92, 1 73, 21 2 
: 01 2 , 1 92 , 1 45 , 249,1 73,01 1 ,024 
: 1 92 ,1 45 , 247 , 206 , 004,1 92,234 
: 096 , 1 74 , 007,1 92, 1 60 , 007,1 46 
: 1 36 , 208 , 253 , 202 , 208 , 248 , 003 . 
: 096,16 9 , 000,1 41 , 030 , 208,1 66 
: 1 41 , 004,21 2, 1 41 ,01 1 , 212,249 
: 1 41 , 022,1 92,1 41 , 023,1 92,24 5 
: 1 41 , 024,1 92, 1 41 , 025,1 9 2,255 
: 1 41 , 026,1 92 ,1 41 , 056, 1 92,038 
: 1 4 1 , 055,1 92,1 41 , 007,21 2,044 
: 1 41 , 032 , 208,1 41 , 033 , 208,06 5 
: 1 33,24 7,0 32,20 3,1 99 , 169,0 35 
: 006 , 1 4 1 , 0 37 , 208,1 69 , 009,1 40 
: 141 , 038 , 208,1 69 , 230 , 141,247 
: 01 3 , 208, 1 41 , 01 5 , 208 , 1 60 , 071 
: 000 , 1 69,001 , 1 53 , 000 , 2 1 b , 1 27 
: 200, 1 92 , 006 , 208,24 8,1 60, 0 96 
: 000 , 169 , 192 , 153 , 248 , 007, 113 
: 024 , 105, 001 , 200, 1 92 , 009, 137 
: 208 , 245 , 169 , 031 , 141 , 028, 178 
: 208 , 1 4 1 , 021 , 208 , 169, 1 80, 033 
: 141 , 000 , 208 , 1 69 , 230, 1 41 ,001 
: 001 , 208 , 169 , 075 , 141 , 007, 231 
: 1 92 , 169 , 004 , 141 , 013 , 192, 091 
: 169 , 032, 141 , 004 , 192, 1 41 , 065 
: 005, 1 92 , 169 , 007, 141 , 039, 201 
:‘20 8, 1 69 , 002, 1 41 , 040 , 208,1 66 
: 169 , 004 , 141 , 041 , 208 , 169, 136 
: 005, 1 41 , 042 , 208, 1 69 , 007, 238 
: 141 , 043 , 208, 1 69 , 048, 141 , 1 66 
: 018 , 004 , 169 , 017 , 141 , 005, 032 
: 21 2 , 169 , 241 , 1 41 , 006 , 21 2, 153 
: 169 , 200 , 141 ,001 , 212 , 141 ,042 
: 000 , 21 2 , 169,01 5 , 1 41 , 024,001 
: 21 2 , 1 , 69 , 031 , 1 41 ,01 2 , 212,223 
: 1 69 , 250, 1 41 ,01 3,21 2,1 69,1 50 
: 01 5,1 41 , 008,21 2 , 032 , 235,1 01 
:1 95 , 169 , 255, 141 , 073,1 92,233 
: 169 , 001 , 141 , 044 , 208 , 169, 202 
: 208, 1 33 , 248, 1 69 , 001 ,1 33,1 1 2 
: 249 , 169 , 208 , 133 , 250 , 169, 148 
: 246 , 133 , 251 , 169 , 007 , 133, 173 
: 2 52, 1 69, 021 , 1 33 , 253, 1 69, 235 
: 192 , 133 , 254 , 032 , 046 , 198,101 
: 032 , 104 , 198 , 032 , 044 , 200, 116 
: 032, 01 4, 1 96 , 096 , 169, 001 , 020 
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,000 

,016 

,000 

,064 

50982 

: 000 

,016 

,000 

, 000 

,016 

,000 

,070 

50986 

: 000 

,016 

,000 

, 000 

,016 

,000 

,076 

50994 

: 000 

,01 6 

,000 

,000 

,016 

,000 

,082 

51 G 0 G 

: 000 

, 01 6 

,000 

,000 

,016 

,000 

,088 

51006 

: 000 

,000 

, 000 

, 000 

,000 

,000 

,062 


SUPERCOMMODCiBE® 2/85 - SI 




51 

012 

: 000 

,000 

, 000 

,000 

, 000 

,000 

51 

01 8 

: 000 

, 064 

, 000 

,001 

,016 

,000 

51 

024 

; 004 

,016 

,000 

,004 

,004 

,000 

51 

030 

: 0 1 6 

,001 

,000 

, 064 

,001 

,000 

51 

036 

: 064 

,000 

,065 

,000 

,000 

,065 

51 

042 

: 000 

,000 

, 000 

, 000 

, 000 

,020 

51 

048 

: 000 

,085 

,020 

, 085 

,000 

, 020 

51 

054 

: 000 

, 000 

,000 

,000 

,000 

,065 

51 

060 

: 000 

, 000 

,065 

,000 

,001 

,000 

51 

066 

: 064 

,001 

,000 

,064 

,004 

,000 

51 

072 

! 01 6 

,01 6 

,000 

,004 

,016 

,000 

51 

078 

: 00 4 

,064 

,000 

,001 

,000 

,000 

51 

084 

: 000 

,000 

,000 

, 000 

, 000 

, 000 

51 

090 

: OQ 4 

,000 

,001 

,005 

,064 

,005 

51 

096 

: 004 

,080 

,001 

,021 

,080 

,017 

51 

102 

: 0 1 6 

,000 

,001 

,005 

,017 

,06 5 

51 

108 

: 021 

,081 

,080 

,004 

,081 

,016 

51 

114 

: 02 1 

,004 

,081 

,069 

,005 

,016 

51 

1 20 

: 01 6 

,020 

, 005 

,01 7 

,016 

,001 

51 

126 

: 01 7 

,000 

, 000 

,001 

,000 

,000 

51 

132 

: 020 

, 000 

, 000 

, 069 

,000 

, 000 

51 

1 38 

: 020 

,000 

, 000 

, 000 

,000 

, 000 

51 

1 44 

: 000 

,000 

, 000 

,160 

, 063 

,185 

51 

1 50 

: 1 39 

, 1 98 

,153 

,000 

, 048 

,136 

51 

156 

: 01 b 

,247 

,160 

,063 

,185 

,203 

51 

162 

: 1 98 

,153 

,064 

, 048 

,153 

, 1 28 

51 

1 68 

; 048 

, 1 53 

, 1 92 

,048 

,136 

,016 

51 

174 

: 241 

,160 

, obi 

, 1 85 

,01 1 

, 1 99 

51 

ì 80 

; 1 53 

,000 

, 049 

,136 

,016 

,247 

51 

186 

: loO 

,063 

,185 

,075 

,199 

, 1 53 

51 

1 92 

: 064 

, 049 

, 1 3 b 

, 01 6 

,247 

,160 

51 

1 98 

: 063 

,185 

,139 

,199 

,153 

, 1 28 

51 

204 

: 04 9 

,136 

,016 

,247 

,162 

,003 

51 

210 

: 1 60 

,000 

, 169 

,170 

, 032 

,0 36 

51 

216 

: 200 

,169 

,000 

,162 

,003 

,032 

51 

222 

: 036 

,200 

, 1 92 

,064 

,176 

,007 

51 

228 

: 1 62 

,003 

,169 

,170 

,076 

,01 4 

51 

234 

: 200 

,096 

,153 

,192 

,049 

,200 

51 

240 

: 202 

,208 

,249 

,096 

,024 

,160 

51 

246 

: 01 5 

,162 

,010 

,032 

,240 

,255 

51 

252 

: 169 

,046 

, 1 60 

, 1 92 

,032 

,030 

51 

258 

: 171 

, 032 

,083 

,200 

, 1 60 

,255 

51 

264 

: 032 

,152 

,193 

,024 

,160 

,015 

51 

270 

: 1 o 2 

,01 0 

, 032 

,240 

,255 

,169 

51 

276 

: 0 57 

,160 

,192 

,032 

,030 

,171 

51 

282 

: 096 

,173 

,055 

,192 

,024 

,105 

51 

288 

: 001 

,201 

,01 0 

, 144 

,005 

,238 

51 

294 

; 056 

,192 

,169 

,000 

,141 

,055 

51 

300 

: 192 

,173 

,056 

,192 

,024 

,105 


51 

306 

: 048 ' 

,141 

, 1 67 

,005 

,173 

,055 

,183 

51 

312 

: 1 92 

,024 

,105 

,048 

#14 1 

,168 

,022 

51 

318 

: 005 

, 1 69 

,001 

,141 

,167 

,217 

,050 

51 

324 

; 141 

, 1 68 

,217 

,160 

, 200 

,032 

,018 

51 

330 

; 1 52 

,193 

,096 

,152 

,160 

,002 

,117 

51 

336 

; 032 

,152 

,193 

,168 

,173 

,003 

,089 

51 

342 

: 1 92 

,009 

,000 

,141 

,003 

,192 

, 1 67 

51 

348 

: 1 77 

,249 

,201 

,030 

,144 

,010 

, 19 » 

51 

354 

: 1 70 

,202 

,138 

,145 

,249 

,169 

,203 

51 

360 

: 001 

,141 

,003 

, 192 

,096 

,173 

,254 

51 

366 

: 003 

,192 

,208 

,001 

,096 

,169 

,067 

51 

372 

: 000 

#141 

,003 

, 1 92 

, 1 60 

, 002 

,158 

51 

378 

: 032 

,133 

,200 

,200 

,200 

,032 

,207 

51 

384 

: 1 33 

,200 

, 200 

,200 

,032 

,133 

,058 

51 

390 

; 200 

,076 

,165 

,200 

,071 

,065 

,199 

51 

396 

: 077 

,069 

,0 32 

,079 

,086 

,069 

,096 

SI 

40 2 

; 082 

,000 

,060 

,082 

,069 

,083 

,086 

51 

408 

: 083 

,032 

,084 

,082 

,073 

,071 

, 121 

51 

414 

: 07 1 

,069 

,082 

,032 

,084 

,079 

,119 

51 

420 

: 032 

,080 

,076 

,065 

,089 

,032 

,062 

51 

426 

: 065 

,071 

, 065 

,073 

, 078 

,000 

, 066 

51 

432 

: 169 

,000 

,141 

,021 

, 2 Ub 

,024 

,027 

51 

438 

: 1 60 

,01 5 

,162 

,010 

, 032 

,240 

, Ob 9 

51 

444 

: 255 

,169 

,194 

,160 

,200 

,032 

,230 

51 

450 

: 030 

,171 

, 024 

, 1 60 

,006 

, 1 62 

,035 

51 

456 

: 01 3 

,032 

,240 

,255 

,169 

,204 

,145 

51 

462 

: 160 

,200 

,032 

,030 

,171 

,173 

,004 

51 

468 

; GUO 

,220 

,041 

,016 

,208 

,249 

,234 

51 

474 

: 076 

,086 

,196 

,01 3 

,013 

,000 

, 1 46 


scotte i OOOOOO SHIPS : 3 




1 

068 

155 

106 

ì 68 

030 

1 ì 8 

058 

175 

182 

255 

180 

203 

140 

225 

099 

006 

191 

1 1 0 

251 

200 

021 

214 

096 

1 1 2 

062 

194 

049 

065 

069 

053 

1 52 

097 

105 

065 

070 

1 85 

1 10 

1 56 

21 1 

248 

169 

191 

128 

170 

206 

215 

175 

195 

074 
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1 rapporti tra ragazzi e rigane 
sono ititi e tono tuttora oggetto 
di atolli •ludi, coaì che, qualche 
tempo fa, leggendo od articolo 
che parlava della teoria del bio- 
ritmo, ci venne Hdea che foa«e 
possibile, tramite caso, appara- 
re la compatibilità tra dae perso- 
ne. 


P ensavamo, infatti, che un ragazzo e 
una ragazza avessero maggiori prò 
babilità di andare d'accordo avendo det 
cicli biologici abbastanza slmili. 

Anche se valida questa nostra ipotesi, 
non si deve ritenere impossibile l'Intesa 
ira due che abbiano ritmi vitali anche 
molto diversi, poiché ramo re. a volte, 
è stimolato dalle difficoltà. 

Non si disperi dunque chi. alla fine, non 
sarà rimasto soddisfatto del responso 
del computer 

Ma che cosa è il bioritmo sulla cui teoria 
sì basa il programma RAPPORTO DI 
COPPIA? 

Dobbiamo subito dire che i bioritmi, o 
meglio ì ritmi che regolano la vita del- 
l'uomo, erano già conosciuti da antiche 
civiltà Non si può non citare il grande 
Ippocrate, che riteneva si dovessero co- 
noscere i giorni buoni o cattivi di chi 
aveva bisogno di cure. 

Ciò accadeva nel 400 a.C. 

Anche i medici orientali parlavano di 
una periodicità giornaliera nell' organi- 
smo umano. 

Le origini moderne dì questa disciplina 
sì devono ad Herman Swoboda, docen 
te deH’universilà di Vienna, ed a Wil- 
helm Fliess, biologo a Berlino. 

Essa venne compiutamente teorizzata 
dall’ ingegnere meccanico Alfred Tel- 
tsher. 

Bioritmo è una parola composta da 
BIO-VITA e da RITMO-CICLO. 

U bioritmo d insegna dunque a conosce- 
re e a definire anticipatamente i punti 
alti e bassi dei cicli vitali ed il loro susse- 
guirsi. 

Esistono tre ritmi che regolano la vita 
di ognuno. 

Il primo è il ritmo fisico, che dura 23 
giórni. 

Per ì primi 11,5 giorni avrete buona 
attività fisica, vigore, resistenza Nei ri- 


manenti H,5 giorni avrete poca resi 
stenza e notevole sensibilità alla fati 
ca. 

Il secondo ritmo dura 28 giorni e presie- 
de alla sfera psichica o emozionale, ai 
sentimenti, all’amore e alla predisposi 
zìone artistica. Nella parte positiva del 
ciclo vi sentirete contenti e collaborere 
te facilmente. Viceversa nella metà ne 
gativa. 

[E terzo ciclo è quello intellettuale, che 
dura 33 giorni. Esso guida la capacità 
di concentrazione e la lucidità mentale. 
Nel periodo positivo avrete grande suc- 
cesso neirapprendimento di cose nuo- 
ve, nelle attività intellettuali. 

Viceversa nella seconda metà. 

Questi tre ritmi iniziano al momento del 


la nascita e perdurano per tutta la vita. 
La conclusione è allora ovvia: per cono- 
scere la compatibilità di due soggetti 
basterà considerare ì giorni di massima 
positività di entrambi e confrontarli. 

Se si accerteranno un gran numero di 
riscontri, le possibilità di intesa tra le 
due persone in esame saranno alte, in 
caso contrario saranno basse. 

Il programma esegue proprio queste 
operazioni e sul loro risultato formula i 
suoi giudizi. 

Come lanciare il profraana. 

Il programma gira su VIC 20 provvisto 
di stampante e di espansione da 16Kby- 
te. 

Non disponendo della stampante si pos- 
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sono omettere le linee 580-590 e tutto 
il blocco che comprende le istruzioni si* 
tirate nelle linee 4270-6160. 

Quando finite di battere interamente Li 
programma comportatevi nei seguenti 
modi: 

J) Salvate il programma su nastro o su 
disco, a seconda se possedete il flap* 
py o il registratore. 

2) Verificatelo. 

3) Se r operazione dì verifica ha dato 
buon esito, continuate con il punto 
4. Viceversa ritornate al punto 1. 

4) Digitate NEW e premete il tasto su 
cui è scritto RETURN. 

5) Digitate POKE44,24 e premete il ta- 
sto RETURN. 

6) Digitate POKE6!44,0: POKE 6145, 
0 e premete RETURN. Le ultime 
due operazioni riservano uno spazio 
all'inizio della memoria per i caratte- 
ri speciali definiti dal programma. 

7) Leggete da disco o da cassetta il pro- 
gramma che avevate salvato. 

8) Date il RUN e se avete seguito tutte 
le istruzioni alla lettera, comparirà 
la scritta ATTENDERE PREGO e il 
programma si comporterà come di 
seguito. 

Funzionamento 

Terminato Li caricamento dei DATA |] 
computer mostrerà una piccola scenet- 
ta di presentazione che, naturalmente, 
segue lo sfondo romantico del program- 
ma... cosi come lo è l'esecuzione del 
brano di Chopìn “Melodìa”. 

Subito dopo comincia Tesarne" vero e 
proprio. 

Il computer richiede il nome e la data 
di nascita della 1° persona e poi di segui- 
to il nome e i dati anagrafici della 2*, 

Il programma è predisposto per riceve- 
re prima il nome e i dati anagrafici della 
persona di sesso maschile e poi quelli 
della persona di sesso femminile. 

Se. erroneamente, doveste eseguire 
l'operazione all 1 in verso, il programma 
funzionerà regolarmente, solo che ver- 
ranno attribuite le desinenze maschili al 
nome femminile e viceversa. Ad esem- 
pio: Alessia è natO anziché è natA op- 
pure, caso inverso, Riccardo è natA in 
vece di è natO e così vìa. 

Vengono mostrate, poi, le differenze in 
giorni fra I due soggetti in esame e, pre- 
muto un tasto, la loro compatibilità fisi- 
ca. emotiva, mentale ed una media arit- 
metica di tutte e tre. 

Non dovranno sentirsi deluse le coppie, 
anche affi alatissime, che non avranno 
compatibilità media del 100%, poiché 
ciò accadrebbe solo se entrambi fossero 
nati lo stesso giorno o a 21252 giorni 
l'uno dall'altra. 

Battete un tasto qualsiasi e i dati visti 
prima sotto forma di cifre ora saranno 
dei coloratissimi istogrammi. Altri due 
colpi di tasto e il computer darà... la 
sua diagnosi ed esprimerà il suo giudizio 
finale. 

A questo punto, se vorrete continuare 
ancora, premete il tasto C; se invece ne 
avete abbastanza, premete il tasto F. 


Per coloro che sono in possesso della 
stampante è possibile la visualizzazione 
su carta dei suddetti dati. 

Per ottenere questa opzione rispondere 
SI quando il computer chiederà: SU 
STAMPANTE? 

Se invece preferite il video, basterà digi- 
tare NO in risposta alla domanda. 

Struttura del programma 

La linea 260 controlla che sia stata ese- 
guita l’ operazione descritta nel paragra- 
fo COME UTILIZZARE IL PROGRAM- 
MA. 

In caso affermativo lo svolgimento del 
programma continua regolarmente, in 
caso negativo l'esecuzione del program- 
ma si blocca. 

Le linee 270/340 dimensionano e leg- 
gono i valori delle matrici A(I) e B(U). 
La linea 350 comanda un salto alla su- 
broutine che provvede alla realizzazìo 
ne della scenetta iniziale e del brano 
musicale. 

Le istruzioni 360-570 richiedono l'Intro- 
duzione dei dati che sono poi elaborati 
dalle linee 1150-1320, 

Le linee 580-590 accettano l'opzione 
per la stampante. 

Se in risposta al punto di domanda vie 
ne digitato SI, il programma salta alla 
subrouiine delle linee 4270 6160. 

Le istruzioni 600-790 provvedono alla 
visualizzazione delle date di nascila dei 
due soggetti (con il giorno della settima 
na}. 

Le lìnee 800-1060 visualizzano le tre 
compatibilità principali e quella media, 
mediante cifre ed istogrammi. Infine le 
linee 1890-2760 mostrano i commenti 
sulla coppia basati sulle percentuali rag- 
giunte per ogni ciclo: con tonalità di co- 
lore scuro, se assolutamente negative, 
di colore chiaro, se assolutamente posi- 
tive. 

Analizziamo ora le varie subroutine In- 
contrate. 

Prima è quella che provvede al Fin testa - 
zione e che comprende il fascio di istnj- 
rione delle linee 3220-3680. 

Sì cambia la combinazione di colore 
sfondo /bordo (linea 3220) e si comuni- 
ca al computer dove cercare 11 nuovo 
set di caratteri (linea 3230). 

Comincia, poi, la scenetta con Cupido 
che scende dall'alto verso il basso (linee 
3250-3360), 

Le istruzioni che seguono provvedono 
a far lanciare la freccia a Cupido, la- 
sciandogli l’arco vuoto (linee 3370- 
3470), provvedendo inoltre a generare 
l'effetto sonoro di una freccia che fende 
L'aria . 

Si stampa il cuore dì colore bianco (linee 
3480-3540), che viene subito dopo rìco- 
lo rato di rosso, facendo così graduai 
mente “arrossire” Cupido (linee 3550- 
3570). 

Le istruzioni contenute nelle linee 
3580-3680 eseguono “Melodia", leg 
gendo le note contenute nel blocco DA- 
TA 3690-3850. 

Altra subroutine è quella che gestisce 
la stampa (linee 4270-6160), Essa asse- 
gna un file alla stampante e stampa fin- 


testazione con i caratteri in doppia lar- 
ghezza, per poi procedere come nell'op- 
zione vìdeo, concedendo però la possi- 
bilità non trascurabile di riguardare il 
responso con calma. 

Il blocco dì linee 3860-4260 provvede 
a realizzare gli istogrammi. Questi ven 
gono mostrati su tre differenti sfondi, in 
modo da rendere chiara la loro com- 
prensione con ogni tipo di televisore. 

Applicazioni 

Il programma è adattabile a qualsiasi 
esigenza! 

Sì possono Infatti Introdurre le date di 
nascita di due donne o di due uomini... 
insomma.,, oppure la vostra con quella 
di Brooke Shields, Carmen Russo o 
Alain Delon, Marcello Mastro! anni. 
Potrete finalmente sapere se la donna 
o l'uomo dei vostri sogni potrebbe anda- 
re d'accordo con voi. 

Un'altra prova potrebbe essere quella 
di verificare la vostra compatibilità con 
quella dei vostri genitori, fratelli, ecc. 
Provate a vedere se Reagan e Cernien- 
ko sono compatìbili... chissà! fi 
Applicazione ovvia è provare a vedere 
cosa esce fuori quando introducete la 
vostra data di nascita e quella della vo- 
stra ragazza o del vostro ragazzo. 

11 programma accetta di tutto e dà mol- 
te possibilità d'impiego, sempre che 
crediate nei Bioritmi! 

Conclusioni 

Il listato lascia spazio a modifiche e mi 
gitone. Attendiamo quindi suggerimenti 
da voi tutti! 

Un ultimo avviso! 

Prestate attenzione quando introducete 
3 DATA, soprattutto quelli presenti nel 
la linea 340, in quanto se un errore 
fosse presente in questa linea, il prò* 
gramma non funzionerebbe corretta- 
mente, poiché in essa sono contenuti il 
numero di giorni già trascorsi nell'anno 
fino al mese inserito [matrice A(M}]. Se 
le altre linee DATA dovessero contene- 
re qualche errore, avrete al massimo 
qualche carattere un po' strano o qual- 
che nota “stonata". 

A questo proposito vi voglio dire che è 
possibile, volendo, cambiare il brano 
musicale già presente con un altro più 
consono ai vostri gusti. 

Per fare dò introducete l codici che rap- 
presentano le note della nuova musi- 
chetta nelle linee 3690-3850, avendo 
però cura di inserire come ultimo carat- 
tere dei DATA *1, in modo da comuni- 
care ai computer la fine dell' esecuzione 
del brano. 

Se invece “Melodìa” dovesse piacervi, 
ma il ritmo vi sembra troppo lento © 
troppo allegro, modificate il -90 pre- 
sente nella linea 3650 nel modo seguen- 
te: 

IJ Se volete un ritmo più allegro, sot- 
traete da YU un numero maggiore di 
90, ma minore di 240. 

2) Se volete un ritmo più lento, sottrae- 
te ad YU un numero minore dì 90. 
Buon lavoro e soprattutto buon diverti- 
mento! 
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Rapporto di coppia per V1C 20 


1 00 

REM*** 


* * * * 


* 

: rem 

51 

1 10 

REM* 

* 

: rem 

202 

120 

REM* 

RAPPORTO DI COPPIA 



« 

Uem 

1 39 

130 

REM* 

* 

srem 

204 

140 

REM* 

PER VIC 20+1 6K+STAMPANTE(QPZ 



* 

: rem 

37 

150 

REM* 

* 

: rem 

206 

1 60 

REM* 

BY 



* 

: rem 

106 

1 70 

REM* 

* 

: rem 

208 

1 80 

REM* 

FRANCESCO MAZZOLA 



* 

: rem 

131 

190 

REM* 

* 

srem 

21 0 

200 

REM* 

V. LE AFRICA 84 



* 

: rem 

241 

210 

REM* 

* 

s rem 

203 

220 

REM* 

95129 CATANIA 



# 

; rem 

199 

230 

REM* 

# 

: rem 

205 

240 

REM* 

* 

: rem 

206 

250 

HE 14****» ***************************** 


* 

: rem 

57 

260 

IFPEEK(44) 024THENPRINT 1 ' {CLR} DIGITARE 


POKE44 ,24 E{ 2 SPAZ I } P0KE61 4 4 , 0 : POKE 


6145,0 E RILEGGERE IL PROG-’^END 

s rem 5 

210 PO KE 3 6 87 9 , 7 8 : PRINT 11 { CLR } {YEL) 

{ Il GIU'H 3 DES } ATTENDERE PREGO ì ! 41 

: rem 29 

200 DIMA{12) ,B(359) : rem 201 

290 DIM TR(4) ,TS (4) ,TÉ{4) ,£R$ (4) : rem 174 

300 FORI - 1 T01 2 : rem 55 

310 RE ADA ( I ) ì rem 139 

32 0 NEXTI : rem 29 

330 FORU=QtQ359:REA0B(U) :FOKE51 20+U,B(U) : 

tfEXT ; rem 255 

340 DATAQ, 31 ,59,90,120,151,181 ,212,243,27 
3,304,334 : rem 191 

350 GOTO 32 20 : rem 152 

360 PRI NT" {CLR} PERSONA 1 " : INPUT" COME TI 

CHIAMI H ; A$ : rem 96 


370 

PRI NT : PRINTA$ 

; M QUAL 1 E r LA TUA DATA 


f 2 SPASI} DI 

NASCITA 11 : rem 

185 

380 

INPUT" GIORNO { 2 SPAZI} { 1-31) " ; D 




: rem 

207 

390 

PRI NT: INPUT" 

MESE ( 4 SPAZI} (1-12) 

“ ;m 



: rem 

251 

400 

PRI NT : INPUT" 

ANNO (4 CIFRE) ";Y 




: rem 

221 

410 

E1 ®M 

srem 

149 

420 

Fl=D 

: rem 

142 

430 

Gl-Y 

s rem 

1 65 

440 

GOSUBl ì 50 

: rem 

223 

4 50 

Z2=T 

s rem 

1 82 

460 

K 1 =J+1 

: rem 

249 

470 

PRIMI " [CLR } PERSONA 2 ":INPUT"CGME TI 


CHIAMI " - AA$ 

: rem 

1 64 


480 PRINT1PRINTAAS;" QUAL 1 E 1 LA TUA DATA 
{ 2 spazi }DI nascita" :rem 252 


490 

INPUT" GIORNO { 2 SPAZI} (1-31) " ;D 




: rem 

209 

500 

PRINT : INPUT" M£SE{ 4 SPAZI}(1-12) 

" ;M 



;rem 

244 

51 0 

PRINT: INPUT" ANNO (4 CIFRE) 

";Y 




: rem 

223 

52 0 

E2-M 

: rem 

152 

530 

D2-D 

: rem 

143 

54 0 

G2-Y 

: rem 

163 

550 

GOSUBl 1 50 

: rem 

225 

560 

P2 *ABS ( Z2-T) 

: rem 

1 42 

570 

K2-J+1 

: rem 

252 

580 

PRINT» {CLR} {GIU 1 } { 4 SPAZI] SU STAMPAN 


TE"; : INPUTYUS 

: rem 

62 

590 

IFYU$ m "S I "THEN4 2 70 

: rem 

24 

600 

PRINT" {CLR} { 3 GIU 1 ] ANALISI 

DELLA 

CGM 


PATI -B IL ITA* DI "AS" E "AA$ 

: rem 

1 99 

61 0 

PRI NT ; PRINT 

: rem 

235 

62 0 

PRINTA5" E 1 NATO IL"; Fi 

: rem 

179 

6 3 0 

M=E1 

: rem 

1 53 

640 

GOSUBl 330 

: rem 

225 

650 

PRINT" " ; G 1 ; " ERA DI " 

i rem 

3 

660 

J-=K1 

: rem 

1 59 

6 70 

GOSUBl 680 

; rem 

236 

600 

PRINT"." 

: rem 

157 

6 90 

PRINT 

: rem 

44 

700 

FRINTAAS;" E 1 NATA IL ";D2 

;rem 

31 

710 

M-E2 

: rem 

153 

720 

GOSUBl 330 

: rem 

224 

730 

PRINT" " f G2 ; " ERA DI " 

: rem 

3 

740 

J = K2 

: rem 

1 59 

750 

GOSUBl 6 80 

: rem 

235 

760 

PRINT" :PRINT"CI SONO " ; P2 ; 

" GIORNI 


{ 2 SPAZI} TRA LE DUE PERSONE 

IN ESAME 


H 

; rem 

234 

770 

PRINT" - ^ 

H 







:rem 

77 

780 

PRINT" f 4 SPAZI} PREMI UN TASTO" 




;rem 

27 

790 

GETWYS :IFWY$=""THEN790 

: rem 

65 

800 

Z*P2 

: rem 

177 

81 0 

P3-ABS( INT( { (Z/23] -INT{Z/23) 

) *23) } 




srem 

50 

82 0 

S3 -ABS ( INT ( ( ( Z/2 8) -INT(Z/28) 

) *2 8) ) 




:rero 

69 

830 

C3 =ABS ( INT ( ( ( Z/33 ) - INT { Z/3 3 } 

) *33) ) 




: rem 

42 

040 

P5-ARS (100- ( ( 2 + P 3 ) * {100/23} ) 

) 




: rem 

100 

850 

S5- ABS ( 1 00- { (2*53) *(100/28) ) 

) 




: rem 

1 1 2 

860 

C5-ABS ( 1 00, { (2*C3) * (1 00/33) ) 

) 




: rem 

77 

870 

1FYU$ * "SI "THEN50 3 0 

; rem 

20 

830 

PRI NT" { CLR } { 4 GIU 1 j COMPATÌ B ILITA 1 

FI 


SICA" 

i rem 

224 

090 

PRINT 

: rem 

46 

900 

Cl - INT (P5*l 000) / 1 000 

: r em 

2 30 

910 

PRINTC1 

: rem 

63 

920 

PRINT"COMPATIB ILITA 1 EMOTIVA" 




:rem 

1 06 

93 0 

PRINT 

: rem 

41 

940 

C2-INT(S5*1 OOOJ/IOOO 

: rem 

238 

950 

PRINTC 2 ; " 

: rem 

68 

960 

PRINT"COMPATIBILITA' mentale 

> n 




: rem 

95 

970 

PRINT 

: rem 

45 

980 

C4-INT{C5*I00O)/lO00 

: rem 

226 

990 

PR1NTC4 ; 

: rem 

74 
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1000 

PRI NT "COMPATIR IL IT A 1 MEDIA 

rem 

21 9 

1 720 

PRINT"GIOVEDI 1 " ; 



: rem 

4 

1010 

PRINT 

trem 

79 

1 730 

RETURN 



: rem 

171 

1020 

A5 * ( P5+S5+C5) /3 

: rem 

4 

1740 

IFJ 03 THENl 770 



t rem 

80 

1 030 

C5 = INT C A5* 1 000) /I 000 

;rem 

6 

1 750 

PR I NT" VENERDÌ " ; 



; rem 

230 

1 040 

PBINTCS;"% W 

: rem 

no 

1760 

RETURN 



t rem 

174 

1050 

GETRE6 : IFRE6 = " "THENl 0 50 

: rem 

91 

1 770 

1FJ04THBN1 800 



ì rem 

78 

1060 

GOSUB386Q 

: r em 

24 

1780 

PRINT" SABATO"; 



: rem 

1 50 

1070 

PRINT * 

: rem 

85 

1790 

RETURN 



% rem 

177 

1080 

PRINT 

: rem 

86 

1 800 

IFJOSTHEN1 830 



: rem 

76 

1090 

PRINT 

: rem 

87 

1 81 0 

PRINT" DOMENICA" ; 



: rem 

22 

1 100 

PRINT 

: rem 

79 

1 820 

RETURN 



: rem 

171 

ino 

PRINT : PO KE3 6 879, 1 30 

i rem 

146 

1 830 

IFJ06THEN1 860 



t r em 

83 

1120 

GETWY0 :IFWY$ -""THENl 1 2 0 

: rem 

137 

1 840 

PRI NT" LUNEDI * " ; 



: rem 

193 

1130 

POK.E3687 9,26 

: rem 

153 

1850 

RETURN 



: rem 

174 

1140 

GOTOl 880 

; rem 

208 

1860 

PRINT"MARTEDI 1 "; 



: retti 

e 

11 50 

Yl-Y-1800 

: rem 

221 

1870 

RETURN 



t rem 

176 

1160 

Ql = INT ( Yl /4 ) 

; rem 

176 

1880 

GETtfYS : I FWY6 = * "THENl 880 


; rem 

163 

1170 

Q2«INT(Ql/25) 

: rem 

221 

1890 

PRINT* {CLR} {BLU}" 



t rem 

85 

1 1 80 

Q3= INT ( (Yl+2001/4001 

: rem 

34 

1900 

I PC 1 > - 8 5THEN2 2 0 0 



t rem 

I6B 

1 1 90 

K-0 

:rem 

131 

1910 

IFC1>*65THEN222G 



trem 

169 

1 200 

IFQl *4<>Yl THENl 240 

: rem 

4 4 

1920 

IFC1 >■ 5QTHEN2250 



: rem 

167 

1 21 0 

IFQ2* 1 Q0< >Y1 THENl 240 

treni 

139 

1930 

IFC 1 >^3 5THEN22 70 



3 rem 

173 

1220 

IFQ3*400-2000Y1 THENl 24 0 

trem 

79 

1 940 

IFCl >“1 5THEN23Q0 



; rem 

166 

1230 

K = 1 

; rem 

127 

1 950 

GOTO2320 



t rem 

207 

1 240 

T™ 3 6 5 * Y 1 +QT-Q2+Q3-K 

: rem 

46 

1960 

PRINT 



3 rem 

93 

1 250 

T-T+A(M) 4-D- 1 

t rem 

1 32 

1 970 

IFC2> = 8 5THEN2 350 



t rem 

182 

1260 

IFM< 3THEN1 280 

: r em 

1 4 

1 980 

IFC2>»65THEN2380 



: rem 

1 84 

1270 

T=T+K 

: rem 

37 

1990 

IFC2>- 50THEN2 4GQ 



t rem 

172 

1280 

IPINT(Yl/4) OYÌ/4THEN1 31 0 

; rem 

222 

2000 

IFC2>*35THEN2420 



3 rem 

160 

1290 

IFM> 2THEN1 31 0 

5 rem 

12 

2010 

IFC 2 > * 1 5THEN2 4 40 



; rem 

161 

1300 

T=T« 1 

: rem 

7 

2020 

GOTO2470 



3 rem 

202 

1310 

J“T-7* INT (T/7) 

: rem 

36 

2030 

PRINT 



: rem 

82 

132 0 

RETURN 

: rem 

166 

2040 

IFC4 >*8 5THEN2 500 



3 rem 

170 

1330 

IFMOl TTlENl 360 

trem 

71 

2050 

IFC4 > = 65THEN2 520 



t rem 

171 

1340 

PRINT "GENNAIO"; 

: rem 

213 

2060 

IFC4 > = 50THEN2 550 



: rem 

169 

1 350 

RETURN 

t rem 

169 

2070 

IFC4 >*3 5THEN2 570 



trem 

175 

1 360 

IFM<>2TtrENl3 90 

t rem 

78 

2080 

3FC4>-1 5THEN2600 



t rem 

168 

1 370 

PRINT"FEBBRAIQ"; 

trem 

17 

2090 

GOTO2620 



: rem 

206 

1380 

RETURN 

: rem 

172 

2100 

PRINT 



t rem 

80 

1 390 

IFM03THEN1 420 

i rem 

76 

211 0 

XFC5>-8 5THEN2 64 0 



t rem 

1 74 

1 400 

PRI NT "MARZO" ; 

; rem 

90 

2120 

IFC5>=6 5THEN2 660 



trem 

1 75 

1 410 

RETURN 

t rem 

166 

2130 

IPC5>-5QTHEN2680 



t rem 

1 72 

1 420 

IFM04THEN1 450 

; rem 

74 

2140 

IFC5> e 3 5TBEN2 71 0 



t rem 

170 

1 430 

PRINT "APRI LE"; 

trem 

145 

21 50 

IFC5>=1 5THEN2730 



; rem 

1 71 

1440 

RETURN 

trem 

169 

2160 

GOTO2750 



: rem 

209 

1 450 

IFM05THE.Nl 4 80 

: rem 

Bì 

2170 

GETW 7$ : I FWY$ = " "ORWY$ < > " 

F" ANDWY$<> "C* 

1460 

PR I NT"MAGGI O " ; 

i rem 

139 


THEN2T 70 



t rem 

182 

1 4 70 

RETURN 

trem 

172 

21 80 

I FWY$ “ " F "THENEND 



: rem 

251 

1480 

IFM06THEN1 51 0 

trem 

79 

21 90 

I F WY$ * "C " THENPOKE3 6879, 

202 

: PRINT 11 


1490 

PRINT"GIUGN0"; 

trem 

163 


{ BLU } " t GOTQ3 60 



t rem 

88 

1500 

RETURN 

trem 

166 

2200 

PRINT* ( RVS} {CYN } VI 

PIACETE 

MOLTISSIM 

1 51 0 

IFMO7THEN1540 

; rem 

77 


CMYELj SIETE MOLTO 

ORGOGLIOSI 


1 520 

FRI NT "LUGLIO"; 

trem 

160 


{ 3 DESHGRN} L'UNO 

DELL 1 ALTRO { BLU } * 

1530 

RETURN 

trem 

169 





: rem 

1 30 

} 54 0 

IFMOSTHEN1 570 

trem 

84 

2210 

GOTOl 960 



: rem 

206 

1 550 

PRINT" AGOSTO"; 

t rem 

164 

2220 

PRINT" VI PIACE MOLTO STARE 


1 560 

RETURN 

; rem 

172 


{ 2 SPAZI] ASSIEME PERCHE 1 

TROVATE PI 

1 570 

IFW09THEN1 600 

t rem 

82 


AGEVOLE LA COMPAGNIA"; 


; rem 

1 55 

1 580 

PRINT"SETTEMBRE"; 

t rem 

133 

2230 

PRINT" DELL 1 ALTRO" 



: rem 

98 

1 590 

RETURN 

; rem 

1 75 

2240 

GOTOl 960 



: rem 

209 

1 600 

IFMOl 0THEN1 630 

: rem 

119 

2250 

PRI NT" Vi SENTITE BENE QUANDO STATE A 

1 610 

PRINT "OTTOBRE" ; 

: rem 

243 


SSIEME E SOLO TALVOLTA 

PREFERITE 

LA 

1620 

RETURN 

: rem 

169 


SOLITUDINE* 



: rem 

21 9 

1630 

IFMOl 1 THENl 660 

: rem 

126 

2260 

GOTOl 960 



: rem 

21 1 

1640 

PRINT "NOVEMBRE"; 

: rem 

53 

2270 

PRI NT "STARE INSIEME E f 

BELLO MA PER 

1 650 

RETURN 

: rem 

172 


VOI SONO NECESSARI 

ANCHE I 

MOMENTI"; 

1 660 

PRINT"DICEKBRE"; 

: r em 

20 





t rem 

58 

1670 

RETURN 

t rem 

174 

2280 

PRINT" { 2 SPAZI} IN 

CUI 

VE 

NE STATE D 

1 680 

IFJOl THENl 71 0 

: rem 

75 


A{ 9 SPAZI} SOLI" 



r rem 

1 28 

1 690 

PRINT "MERCOLEDÌ 1 " ; 

t rem 

1 51 

2290 

GOTO! 960 



: rem 

214 

1 700 

RETURN 

t rem 

168 

2300 

PRI NT "STARE ASSIEME NON 

E 1 



1 71 0 

IFJ02THEN1 740 

: rem 

73 


( 2 SPAZI 10031 ' IMPORTANTE 

COME 
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2310 

2320 


2330 

2340 
2 350 


2360 

2370 
2 300 


23 90 
2400 


2410 

2420 


2430 

2440 


2430 

2460 

2470 


2460 

2490 

2500 


2510 

2520 


2530 

2540 

2550 


2560 

2570 


2560 

2590 

2600 


2 SI 0 
2620 


2630 
2 64 0 


2650 

2660 


{ 7 SPAZI) PER ALTRI" ;rein 82 

G0T0196Q srem 207 

PRINT" Ì rVSHBLK) NON VI IMPORTA MQLT 
0 LA PRESENZA DELL* ALTRO E STATE BE 
N I SS IMO DA SOLI O"; :rem 223 

PRINT" CON I VOSTRI { 2 SPAZI) 

{ 8 DES) AMICI {BLU} (OFF) * i rem 165 
GOTO1960 srem 210 

PRINT" tRVSj (YEL) { 3 DES) POTRESTE CAP 
IRVI{ 4 DES) PERFETTAMENTE l 2 SPAZI) 
ANCHE { 5 DES ) SENZA PARLARE. ( 4 DES) 

" s rem 1 36 


PRINT" (RVSHDES)SIETE AFFI ATATISS IMI 
{BLU} t OFF)" srem 4 

GOTO2030 : rem 202 

PRINT" VI CAPITE MOLTO BENE E 
{ 3 SPAZI) NON POTRESTE MAI 
{ 8 SPAZI ÌMENTIRVI I 11" :rero 230 

GOTO203Q : rem 204 

PR1 NT" RI USC I TE BENE A COMPRENDERE L* 
ALTRO, E DOVETE DARE MOLTA IMPORT AN 
ZA A CIO 1 " s rem 1 56 

GOTO203O : rem 197 

PRINT" VI CAPITE MA DOVRESTE SFGRZARV 
I PER ANDARE { 2 SPAZI) MEGLIO D 1 ACCO 

rdo " : rem 99 

GOTO2030 srem 199 

PRINT"TRASCURATB ABBASTANZA I SENTIM 
ENTI E PREFERITE MOSTRARLI SOLO AL " 


ì rem 4 3 

P R I NT " HO MENTO OPPORTUNO" : rem 145 

GOTO2030 ì rem 202 

PRINT m {RVS){BLU}NON BADATE MOLTO AI 
SENTIMENTI E SIETE PIU 1 ATTACCATI AL 
SUCCESSO *1 : rem 2 

PRINT" { 6 DES} MATERIALE {OFF]" 

f r em 115 

GOTG2030 ì rem 205 

PRINT" (RVS! [CYN}I VOSTRI INTERESSI C 

O INCIDONO PERFETTAMENTE CON QUELLI D 
ELL' ALTRO {OFF] {BLU}" : rem 15 

GOTO2100 ! rem 196 

PRINT"! VOSTRI INTERESSI COINCIDONO 
E NON FATE FATICA AD ACCETTARE " ; 

: rem 169 


PRINT"! PROGRAMMI DELL 1 ALTRO" 

: rem 92 

GOT021 00 : rem 1 99 

PRINT "PREFERÌ TE DIRE LA VOSTRA PIUTT 
OSTO CHE ACCETTARE UN PROGRAMMA CHE 
NON VI VA!” :rem 101 

GOTO2100 s rem 201 

PRINT" SE QUALCHE VOLTA NON SIETE D' 
ACCORDO, PREFERITE SCENDERE A COMPRO 
MESSI " ; : rem 115 

FRINT"PI UTTOSTO CHE LITIGARE" 

: rem 156 


GOTO2100 :rem 204 

PRINT" NON ANDATE MOLTO D' ACCORDO E 
LITIGATE SPES-SG. PERO 1 FATE SUBITO 
PACE" ; rem 94 

GOTO 2 100 ; rem 1 9 7 

PRINT" (RVS) {RED) NON PASSA GIORNO SEN 
ZA CHE VOI LITIGHIATE! ì! {BLU) {OFF}" 

:rem 49 

GOTO 2 1 00 : rem 1 99 

PRINT" £ RVS} {CRN} {DES) SIETE UNA COPPI 
A CHE { 2 DES ] DURERÀ * A LUNGO!!!!! 
{OFF) {BLU} 11 i rem 20 

GOT021 70 : rem 206 

PRINT "SIETE UNA BELLA COPPIA E CON P 
OCHI SFORZI DURERETE A LUNGO" 



:rem 180 

2670 GOTO 21 70 :rem 21 0 

2660 FRI NT" DURERETE SOLO SE SAPRETE FARE 
FRONTE ALLE ( 3 SPAZ I } INEVITABILI DIV 
ERS ITA 1 " 2 rem 246 

2690 PRINT" {SU} DEI VOSTRI CARATTERI" 

:rem 139 

2700 GOTO2170 :tem 204 

2710 PRINT"5IETE ABBASTANZA AFFIATATI E P 
OTRESTE DURARE A LUNGO... MA CI VUOLE 
IMPEGNO!" ! rem 24 

2720 GOT02170 ì rem 206 

2730 PRINT "NON SEMBRATE MOLTO AF-FIATATI. 
DOVRESTE ( 2 SPAZ I } METTERV I ASSAI D' 
IMPEGNO PER DURARE" : rem 187 

2740 GOTO 2 1 70 i rem 208 

2750 PRINT'MRVS) {FURILA VOSTRA COESISTENZ 
A ( 3 SPAZ I 1 SEMBRA IMPOSSIBILE 
{ 2 SPAZ X H BLU H OFF)" : rem 172 

2760 GOT02170 ;rem 210 

2770 DATAQ ,0,0, 3,1 ,1 ,0,0 : rem 163 

2 780 DATA 2 4,60, 1 2 2 , 78 , 1 72 , 1 56 , 24 8 , 1 2 4 

;rem 90 

2790 DATA0, 0,0, 0,128, 192, 164, I46:rem 77 
2800 DATAI 23,1 Zi ,20, 52, 72 ,16, 0,0: rem 59 
2810 DATA2 5 5, 14 6, 164, 192, 128, 0,0,0 

: rem 178 

2820 DATA0, 0,0, 7,31 ,63, 1 27,255 trem 228 

2830 DA TAO, 0, 248, 252,254, 255,255, 255 

:rem 33 

2840 DATAÓ, 0,7, 15,31 ,63,255, 255 Iteti! 30 
2850 DATA0,0, 192,248,254,255,255,255 

: rem 38 

2 860 DATA0, 0,0,0, 0,0, 1 28, 1 92 : rem 117 

2870 DATAI , 3, 7, 1 5, 31 , 31 ,31 ,31 : rem 176 

2380 DATA255, 255, 255,255, 255,255, 255, 255 

: rem 0 

2890 DATA7, 1 87, 1 87 , 1 3 5, 1 87 , 1 07 , 1 87 , 7 

: rem 72 

2900 DA TA238, 2 38,2 38, 241 ,2 51 , 251 ,251 ,2 51 

srem 231 

291 0 DA TA224, 240,248, 252,254, 254,254, 254 

; rem 235 

2920 DATA31 ,31 ,24,27,25,27,27, 31 : rem 79 

2 930 DATA255, 2 55, 142, 1 61 , 1 40 , 1 73, 1 81 , 2 55 

: rem 235 

2940 DATA255, 255, 109, 1 65,41 , 1 73, 173,255 

; r em 1 94 

2950 DATA255, 255, 145, 1 1 9 , 11 3 , 1 1 9 , 1 4 5 , 2 55 

: rem 241 

2960 DATA25S, 255, 1 40,123,155,235,24,255 

: rem 185 

2970 DA TA2 54, 254,206, 1 82 , 1 82 , 1 82 , 206 , 254 

srem 242 

2980 DATAI 5,15,7,7,3,1 ,1,0 : rem 32 

2990 DATA255, 21 5, 170, 1 86,1186,1 86,255, 255 

! r em 3 

3000 DATA255, 49,221 ,27,215,209,255,255 

; rem 131 

3010 PATA2 55, 25, 21 4, 182, 11 0,25, 255, 255 

; r em 128 

3 020 DATA 2 5 5, 1 88 , 1 87 , 1 84 , 1 87 , 1 39 , 2 55, 2 55 

: rem 2 
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3030 

DATA2 52,252,120,120,112,96,224,192 

3510 

P0KE437G, 

24 : POKE4 37 1 

,25: 

POKE4372, 

26 i 


:rem 

163 


PO K E 4 3 5 0 , 

20 : POKE4 34 9 

M9: 

POKE4348, 

18 

3040 

DATAI 27,63, 31 ,15,7, 3, 1 ,0 :rem 

173 






:rem 

87 

3050 

DA' TA2 55, 255, 2 54, 252, 24 8, 240, 224, 1 92 

3 520 

PQKE4347, 

1 7 :POKE434£ 

i,16: 

PO KE 4 3 4 5 , 

15: 


: rem 

234 


PQKE4323, 

1 0 : POKE4 324 

,11: 

POKE4325, 

12 

30 60 

DATAI 2B,0, 0,0,0, 0,0,0 :rem 

2 






itero 

67 

3070 

DATAI 27,63, 31 ,15, 7, 3,1 ,0 :rem 

176 

3530 

POKE4326, 

1 3:POKE4327 

',11: 

POKE4328, 

14: 

30B0 

DA TA2 55, 255, 2 54, 252,24 8, 240, 224, C 



POKE4306, 

9 : POKE4 305 1 

8 : POKE4 304 , 7 : 

POK 


: rem 

129 


E4303 , 6 




srem 

75 

3090 

DATAO, 0,0, 0,0,0, 0,0 : rem 

154 

3540 

POKE4302, 

5 



: rem 

37 

31 00 

DATA0,0,4, 2,255, 2, 4,0 : rem 

10 

3550 

FORWE=38090TO3821 8 


; rem 

58 

3110 

DATA54, 127, 127,127,62,20,8,0 


3560 

pokewe,2 




: rem 

247 


:rem 

132 

3 570 

NEXT 




: rem 

14 

3120 

DATA0, 0,0, 128, 192, 160, 160, 144 


3580 

UY=36375 




: rem 

200 

4 

: rem 

162 

3590 

UV=3 687 8 




: rem 

201 

3130 

DATAI 44, 160,1 60, 192, 128, 0,0,0 


3600 

POKEUV, 15 




: rem 

53 


: rem 

163 

3610 

READUP 




: rem 

139 

3140 

DATA24, 36,66, 126, 66, 66, 66,0: rem 

94 

3620 

IFUP* <- 1 THENPOKE3 686 9 

',192 

: POKE36 87 9,2 

3150 

DATAI 20, 36,34, 34, 34,36,1 20,0 



02 : PRINTCHR0 ( 31 ) :GOTO360 

: rem 

147 


: rem 

116 

3630 

POKEUY,UF 




itero 

122 

3160 

DATA 2 8,8,8,8,8,6,28,0 S r em 

52 

3640 

READ YU 




itero 

151 

3170 

DATA 24, 36, 66, 66,66, 36, 24,0 :tem 

43 

3650 

FORN-1 TOYU-90 

:NEXT 

N 

:rem 

31 

3180 

DATAI 24,66,66,1 24,64,64,64,0 


3660 

POKEUY , 0 




: rem 

8 


: rem 

142 

3670 

F0RUN- 1 TO 20: 

NEXTUN 

; rem 

233 

3190 

DATAI 24 ,66,6 6,1 24,72,68,66,0 


3680 

G0T0361 0 




: rem 

21 2 


: rem 

14 8 

3690 

DATA 175, 

240, 

195, 

480, 

191, 240 

, 1 

3200 

DATA2 6, 34 , 64,64, 64,34,28,0 : rem 

35 


95, 240 




:rem 

244 

3210 

DATA 6 2, 8, B, 8,8, 8, 8,0 ir em 

252 

3700 

DATA 201 , 

960, 

0, 240, 207, 240, 

207 

3220 

POKE36879, 254 :rem 

206 


, 240 




: rem 

no 

3230 

P0KE3 6069 ,205;PRlNT rt {CLR} " : rem 

104 

3710 

DATA 201 , 

240, 

207, 

960, 

0, 240, 

209 

3240 

PEI NT : PRINTTAB ( 2 ) ” { PUR ] ) (*, { 1 

i' + 


, 240 




: rem 

113 


O 1 : rem 

220 

3720 

DATA 209, 

240, 

207, 

240, 

219, 720 

, 2 

3250 

POKE4 3 70, 34:POKE381 62, 2 : rem 

37 


15, 240 




:rem 

221 

3260 

FORMI *41 63T043395TEP22 : rem 

115 

3730 

DATA 209, 

240, 

207, 

240, 

191, 240 

, 1 

3270 

POKEWI , 0 : POKEWI + 33792, 3: POKEWI + ì 

,1 :P 


95, 240 




: rem 

225 


OKEWI+ 33793, 3: POKEWI +2, 2: POKEWI +3379 

3740 

DATA 201 , 

960, 

0, 240, 207, 240, 

207 


4,3 : rem 

81 


, 240 




srem 

114 

3280 

POKEWI +2 3, 3: POKEWI +22 +3 3 793, 3: POKEWI 

3750 

DATA 201 , 

240, 

195, 

960, 

207, 240 

, 2 


+ 24, 4 : POKEWI + 22 + 3 3 794 , 3 :rem 

220 


09, 240 




itero 

228 

3290 

FGRWE-lTOl 00 ; NEXT 5 rem 

1 08 

3760 

DATA 201 , 

240, 

207, 

240, 

209, 240 

, 2 

3300 

POKEWI ,32 IP0KEWI + 1 , 32 ; POKEWI +2 , 32 : PO 


15, 240, 

207, 

240 


: rem 

92 


KE W I + 23, 3 2 : POKEWI +24, 32 srem 

1 04 

3770 

DATA 209, 

240, 

219, 

480, 

201 , 960 

, 2 

3310 

POKE 3687 8, 1 5 : PO KE 3 687 6 , 1 80 : POKE3 6875 


07, 240 




itero 

23 3 


,150 :rem 

1 2 

3780 

DATA 201 , 

240, 

201 , 

480, 

207, 240 

, 2 

3320 

FORWY=lTO50 :NEXT : rem 

78 


01, 240 




itero 

208 

3330 

POKE 36876,0 : POKE 3 687 5 . 0 : rem 

52 

3790 

DATA 215, 

720, 

175, 

240, 

195, 480 

F 1 

3340 

PO KEWI +2 2, 0: POKEWI +2 2+33 792, 3: POKEWI 


91, 240 




: rem 

241 


+ 23,1 : POKEWI +22 + 33793,3: POKEWl + 24 , 2 

3800 

DATA 195, 

240, 

201 , 

960, 

0, 240, 

207 


; rem 

199 


, 240 




irero 

117 

3350 

POKEWI +2 2 +33 794, 3: POKEWI+ 4 5, 3: POKEWI 

381 0 

DATA 207, 

240, 

201 , 

240, 

201 , 960 

t o 


+44+33793, 3: POKEWI+46, 4 :POKEWI+44+33 


, 240 




: rem 

106 


794,3 itero 

22 

382 0 

DATA 209, 

240, 

209, 

240, 

207, 240 

F 2 

3360 

NEXT :rem 

1 1 


19, 720 




:rem 

225 

3370 

PGKE4 363, 35; POKE 381 55, 3* POKE 4 385 

,36: 

3830 

DATA 215, 

240, 

209, 

240, 

207, 240 

, 1 


POKE381 87,3 :rem 

21 1 


91 , 240 




; rem 

219 

3380 

WT*255 :tem 

82 

3840 

DATA 1 95, 

24 0, 

201 , 

960, 

0, 240, 

207 

3390 

FORWR*4 364TQ4 369 :rem 

230 


, 240 




: rem 

1 21 

3400 

PGKEWR, 33:POKEtfR+33792, 4 itero 

214 

3850 

DATA 207, 

240, 

201 , 

240, 

195, 960 


3410 

WT*WT-10 :rem 

233 






:rem 

230 

3420 

PO KE 3 6 8 7 6 , WT : P0KE3 68 7 7, WT itero 

44 

3860 

OS${ 1) «"{OFF} [<#>] "j 

OSS ( 2) «"{OFF} 


34 30 

FORWD* 1 TOl 50; NEXT : rem 

108 


[ <P> ] "sOSS {3) = 

"(OFF} [ <0> ] " : OS? ( 4) 


3440 

POKE3 6876, 0:POKE3 687 7,0 : rem 

56 


1 OFF} [<!>} " 



: rem 

159 

3450 

POKEWR , 32 : rem 

53 

3870 

OSS (5) -"(RVS) [<Y>] 

OSS (6) - " { RVS } 


3460 

POKEWR+1 , 33 ; PQKEWR + 33793 , 4 :rem 

57 


l <T> ] " :Q3$ { 7) * 

"{ RVS } ! <T> ] M :OS$<B) 

■ " 

3470 

NEXT ; rem 

13 


{RVS} " 




: rem 

255 

3480 

FORJK=0TO3 ; POKE4 3 67+JK+ 337 92, 1 :NEXT 

3880 

OY=G:OX— 

1 :QZ- 

1 


irero 

181 


:rem 

148 

3890 

PRINT" { CLR } {WHTj "SPRINT: 

POKE36979 

,8 

3490 

POKE441 3,30; POKE44 1 4, 31 ;POKE44ì 5 

,29: 






: rem 

226 


POKE 4 3 94 ,29 :POKE4393, 28 ;POKE4392 

,11 

3900 

OF=Ul 




: rem 

46 


; rem 

93 

3910 

OP=4 




: rem 

221 

3500 

POKE4391 , 1 1 : POKE 4 3 90,27: POKE4 367 

,21 ; 

3920 

TR ( l } »C1 




: rem 

167 


PO K E 4 368,22: PO KE4 36 9 ,23 ;rem 

1 42 

3930 

TR(2) *C2 




: rem 

1 70 


. SUFEBCOHMOOQfie* 2?È& 



3940 

TR ( 3) -C 4 

s rem 

1 74 

3950 

TR { 4 ) *C5 

: rem 

1 77 

3960 

PRINT" 1CLR} " 

: rem 

54 

3970 

FOROI s 1 T04 

: rem 

151 

3980 

TSiPI) = INT ( (TR (01 ) *OF ) / 8 ) 

; rem 

227 

3990 

TE (01 ) ■ (TR (01 ) *OF ) - (TS(OI) 

*8) 




: rem 

163 

4000 

NEXTOI 

: rem 

155 

401 0 

IFOY R 4THEN4 260 

: rem 

1 04 

4020 

OY-OY+1 : OX-GX+OP : OZ=OZ+l :TS-TS(OY):T 


E=TE(OY) 

; rem 

1 95 

4030 

IFGY® 1 THENOD-2 8 

: rem 

21 3 

4040 

I FO Y» 2 THENOD* 158 

: rem 

11 

4050 

TFOY=3THENOD=31 

; rem 

21 1 

4060 

IFOY- 4THENOD- 3 0 

: rem 

21 2 

4070 

PRINTCHR$ (OD) 

: rem 

61 

4080 

FRI NT " { HOME } " : FORGI = 1 TOOZ : 

PRINT: 

NEXT 



: rem 

99 

4090 

IFQY-ÌTHENERS (OY)=" C* FIS 

H 




: rem 

87 

41 00 

I FOY* 2 THENER$ (O Y ) = " C - EMOT * " 




: rem 

163 

41 1 0 

XFGY® 3THENERS (OY) C. HE NT* 11 




: rem 

164 

41 20 

IF0Y~4THENEE.$ (OY] = " C* MEDIA 1 ' 




:rem 

1 64 

41 30 

PRINT" { RVS} ”;TR(OY) ;TAB(8) 

"% {OFF} ";T 


AB ( 9 ) ER$ (OY) 

: rem 

1 07 

41 40 

IFTS=OTHENGOSUB424Q:GOTG4Ql 0 




: rem 

29 

41 50 

GOSUB41 80 

: rem 

23 

41 60 

I FTE> 0 THENGQS UB4 2 30 

: rem 

217 

41 70 

GOTO40Ì 0 

: rem 

202 

41 80 

PRINT " £ HOME } ” ; : FORGIAI T021 

; PRINT 

:NEX 


T 

: rem 

89 

4190 

FORGI * 1 TOTS 

: rem 

5 

4200 

FOROJ ■ 1 T08 ; PRINTTAB (OX)OS? (OJ) ;OS$ (O 


J ) ; OS 5 (OJ ) " { 3 SIN}"; :GQSUH4220: 

NEXT 


OJ 

: rem 

149 

4210 

PRINT'" {SU} {SIN}"; : NEXTOI 

: rem 

18 

4220 

FOR0H"! TGl 0 : NEXT ; RETORN 

: rem 

75 

4 2 30 

PRI NTS PC (1 ) OS $ ( TE ) ;OS$ (TE) 

;OS$ (TE) :R 


ETURN 

: rem 

94 

4240 

PR I NT” ( HOME } " ; : FORO I = 1 TO 2 1 

: PRINT 

: NEX 


T 

: rem 

86 

4250 

FOROJ -1 TOTE: FRI NTTAB(OX) OS $ (OJ) ; 

OSS( 


OJ) ;OS$ (OJ) *{ 3 SIN}"; 1GOSUB4220 

: NEX 


TOJ : RETURN 

; r em 

21 

4260 

RETURN 

: rem 

172 

4270 

OPEN! , 4:PRINT|1 , CHRS (14) TAfi (10)™ 

RAPP 


ORTO DI COPPIA* 

: rem 

27 

4 280 

PRINTi 1 : PRINT# 1 : PRINT# 1 

: rem 

229 

4290 

PRINT# 1 , CHRS ( 1 5) TAB(13) "ANALISI 

dell 


A COMPATIBILITA 1 DI n h$" E 

"AA$ 




:rem 

209 

4300 

PRINT# 1 : PRINT# 1 

: rem 

1 95 

4310 

PRINT# 1 , AS ” E* NATO I L" ; Fi 

É i* n * 

r * 




:rem 

29 

4320 

M = El 

: rem 

201 

4330 

GOSUB4460 

: rem 

26 

4340 

PRINT#!,* * ; Gl ; ” ERA DI *; 

: rem 

238 

4350 

J*Kl 

; rem 

207 

4360 

GGSUB403O 

: rem 

28 

4370 

PRINT#! ,**" 

: rem 

77 

4360 

PRINTI1 

: rem 

176 


4390 PRINT# 1 , AA$ ; " E' NATA IL 


' ? D2 ; " " 
;rem 


146 


4400 

M-E2 

: rem 

201 

4410 

GOSUB4480 

: rem 

25 

4420 

PRINT#!, * ";G2;" ERA DI "; 

: retri 

2 38 

4430 

J*K2 

: rem 

207 

4440 

GO5UB4830 

: rem 

27 



4450 

4460 

PRINT# 1 , n ■" : PRINT# 1 
" ; P2 ; " GIORNI TRA 
ESAME" 

P R T NT 1 1 . " 

: PRINT# 1 , "CI SONO 
LE DUE PERSONE IN 
irem 53 

t Hi i f ■ f 





II 


: rem 

64 

4 4 70 

PRINT* { CLR} { 9 GIU* 

}*: 

GOTO? 80 





: rem 

222 

4480 

IFM01THEN4S1 0 


: rem 

80 

4490 

PRINT# 1 , "GENNAIO" ; 


: rem 

94 

4500 

RETURN 


: rem 

169 

451 0 

IFMO2THEN4 540 


: rem 

78 

4 520 

PRINT# 1 , "FEBBRAIO"; 


: rem 

145 

4530 

RETURN 


: rem 

172 

4540 

IFM< > 3THEN4 5 70 


: rem 

85 

4 550 

PRINT# I , "MARZO” ; 


: rem 

227 

4560 

RETURN 


: rem 

175 

4570 

IFM0 4THEN4 600 


: rem 

83 

4580 

PRINT# 1 , "APRILE"; 


; rem 

26 

4590 

RETURN 


: rem 

1 78 

4600 

IFMO 5THEN4 630 


; rem 

81 

461 0 

PRINTI 1 , M MAGGIO"; 


; rem 

11 

4620 

RETURN 


: rem 

172 

4630 

IFHO6THEN4660 


: rem 

88 

4640 

PRI NT# 1 , “GIUGNO" ; 


: rem 

35 

4650 

RETURN 


: rem 

1 75 

4660 

IFMO7THEN4690 


: rem 

95 

4670 

PRINT#! , "LUGLIO"; 


: rem 

41 

4680 

RETURN 


:rem 

178 

4690 

IFMO8THEN4720 


: rem 

93 

4700 

PRINT#] , "AGOSTO"; 


: rem 

36 

471 0 

RETURN 


: rem 

172 

4 72 0 

IFMO9THEN4 750 


: rem 

91 

4730 

PRINT# 1 f "SETTEMBRE" 

* 

: rem 

5 

4740 

RETURN 


: rem 

175 

4750 

IFMOl 0THEN47B0 


:rem 

137 

4760 

PRINT# 1 , "OTTOBRE"; 


: rem 

124 

4770 

RETURN 


: rem 

178 

4780 

IFMOl 1THEN4 810 


: rem 

135 

4790 

PRI NT# 1 , "NOVEMBRE"; 


: rem 

190 

4 800 

RETURN 


: rem 

172 

481 0 

PRI NT# 1 , "DICEMBRE" ; 


: rem 

1 4 B 

4820 

RETURN 


: rem 

174 

4 830 

IFJOl THEN4 860 


: rem 

84 

4840 

PRINT#! , "MERCOLEDÌ ' 

n . 
t 

s rem 

23 

4850 

RETURN 


: rem 

177 

4860 

IFJO2THEN4890 


: rem 

91 

4870 

PRINT# 1 , "GIOVEDÌ 1 " ; 


s rem 

141 

4880 

RETURN 


i rem 

1 80 

4890 

IFJO3THEN4920 


:rem 

89 

4900 

PRINT#! , "VENERDÌ"; 


: rem 

102 

4910 

RETURN 


: rem 

1 74 

4920 

IFJO4THEN4950 


; rem 

87 

4930 

PRINT# 1 , "SABATO" ; 

f 

: rem 

22 

4940 

RETURN 


: rem 

177 

4950 

IFJO5THEN4 9B0 


; rem 

94 

4960 

PRINT# 1 , "DOMENICA” ; 


: rem 

159 

4970 

RETURN 


: rem 

180 

4980 

IFJO6THEN501 0 


: rem 

83 

4990 

PRINT# 1 , "LUNEDI 1 " ; 


: rem 

74 

5000 

RETURN 


: rem 

165 
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501 0 

PRINT# 1 , "MARTEDÌ * " ; 

;rem 

1 27 

5020 

RETURN 

: rem 

1 67 

5030 

PRINT# 1 : PRINT# 1 : PRINT# 1 

, "COMPATIBILI 


TA* FISICA" 

: rem 

231 

5040 

PRINT#! 

: rem 

170 

50 50 

Cl -INT (P5 *10001/1 000 

: r em 

23 

5060 

PRINT# 1 ,C1 ?"%" 

: rem 

240 

5070 

PRINT# 1 

; rem 

1 73 

5080 

PRINT# 1 , "COMPATIBILITA* 

EMOTIVA" 




: rem 

28 

50 90 

PRINTt 1 

: rem 

175 

5100 

C 2 - 1 NT < S 5 * 1 000) /l 000 

: rem 

23 

5110 

PRI NT# 1 ,C 2;"V* 

: rem 

237 

51 20 

PRINT#! 

: rem 

1 69 

51 30 

PRINT# 1 , "COMPATIBILITA* 

MENTALE” 




: rem 

9 

51 40 

PRINT# 1 

: rem 

171 

51 50 

C4 3 INT ICS * 1 Q0Q)/1 000 

: rem 

1 4 

51 60 

PRINT#! , C 4 ; " % " 

: rem 

244 

51 70 

PRINT#! 

i rem 

1 74 

51 80 

PRINT#! , " COMP AT IBI L IT A 1 

MEDIA" 




: rem 

1 04 

51 90 

PRINT# 1 

: rem 

1 76 

5200 

A5= ( P5+S5+C5} / 3 

: rem 

8 

5210 

C5=INT(A5*1 0007/1 000 

: rem 

10 

5220 

PRINT# 1 ,C5; "%** 

: rem 

242 

52 30 

PRINT# 1 

:rem 

1 71 

5240 

IFC1 >*85THEN5550 

i rem 

1 80 

5250 

IFC 1 > *6 5THEN5 570 

: rem 

181 

5260 

IFC1 >=50THEN560Q 

: rem 

170 

5270 

IFCI >=35THEN5630 

: rem 

177 

5280 

IFC 1 >*1 5THEN5660 

:rem 

179 

5290 

GOTO5680 

t rem 

220 

5300 

PRINT# 1 

: rem 

169 

5310 

I FC 2 > ■ B 5THEN5 7 1 0 

: rem 

177 

5320 

IFC2>*6 5THEN574 0 

: rem 

1 79 

5330 

IFC2>-50THEN5760 

: rem 

176 

5340 

IFC2> = 3 5THEN5790 

t rem 

1 83 

53 50 

IFC2>*1 5THEN581 0 

: rem 

1 75 

5360 

GOTO5840 

: rem 

21 6 

5370 

PRINT#! 

: rem 

176 

53 B0 

IFC4 > “8 5THEN5 870 

: rem 

1 93 

5390 

IFC4 >~6 5THEN5 890 

: rem 

194 

54 0 0 

IFC 4 > *50THEN5 92 0 

: rem 

1 74 

541 0 

IFC4 > = 3 5THEN5 950 

: rem 

! 81 

5420 

IFC4>*1 5THEN5980 

; rem 

1 83 

5430 

GQT06000 

: rem 

203 

5440 

PRINT# 1 

:rem 

174 

5450 

IFC5 > = 8 5THEN6Q2 0 

: rem 

1 80 

5460 

IFC5>-6 5THEN6G4 0 

: rem 

181 

5470 

IFC5>=S0THEN606O 

: rem 

178 

5480 

I FC5 > a 3 5THEN6090 

i rem 

1 85 

5490 

IFC5>-1 5THEN61 20 

; rem 

178 

5500 

GOTO 61 50 

: rem 

207 

551 0 

PRINT" (CLR} { 9 GIU* } f F 

* PER FINIRE" 


: PRINT" £GIU* } , C i PER CONTINUARE" 

1 



:rem 

140 

5520 

GETWY$ : I FWY$ - " "ORWY5 < > " 

F"ANDWY$<> 

*l£»l 


THEN5520 

: rem 

1 86 

5530 

I F W Y$ » "F "THENCLQS El : END 

: rem 

222 

5540 

iFWY$=*"G”THENCLOSEl ;GOT03fiO i rem 

21 5 


5550 PRINTIl," VI PIACETE MOLTISSIMO . SIE 
TE MOLTO ORGOGLIOSI L*UNO DELL'ALTRO 
" : r em 4 2 

5560 GOTO530Q :rem 209 

5570 PRINT# 1 , " VI PIACE MOLTO STARE ASSIE 
ME PERCHE* TROVATE PIACEVOLE LA COMP 
AGNI A 1 *; tret fi 38 

5580 PRINT# 1 , " DELL’ ALTRO" : rem 237 

5590 GGT05300 :rem 212 

5600 PRINTIl," VI SENTITE BENE QUANDO STA 

TE ASSIEME E SOLO TALVOLTA PREFERITE 
w ; : rem II 

5610 PRINT# 1 t "LA SOLITUDINE” : rem 170 
5620 GOTO5300 :rem 206 

5630 PRINTt 1 , " STARE INSIEME E* BELLO MA 
PER VOI SONO NECESSARI ANCHE I MOMEN 
TI"; :rem 189 

5640 PRI NT# 1 IN CUI VE NE STATE DA SOLI 
" : r em 3 

5650 GOTO 5300 : rem 209 

5660 PRINT#! r” STARE ASSIEME NON E 1 COSI * 
IMPORTANTE COME PER ALTRI 1 *: rem 222 

5670 GOTO 5 3 00 :rem 211 

5680 PRINT#!, 1 * NON VI IMPORTA MOLTO LA PR 
ESENTA DELL* ALTRO E STATE BENISSIMO 
DA SOLI”; : rem 122 

5690 PRINT#], " O CON I VOSTRI AMICI” 

; rem 231 

5700 GOTO 5 3 00 ;rem 20 5 

5710 PRINT# 1 r " POTRESTE CAPIRVI PERFETTAM 
ENTE ANCHE SENZA PARLARE," : rem 139 
5720 PRINT# 1 , " ( 10 SPAZI tSIETE AFFIATATIS 
Si Mi " : rem 1 67 

5730 GOTO 5 3 70 : rem 215 

5740 PRINT# 1 , " VI CAPITE MOLTO BENE E NON 
POTRESTE MAI MENTIRVI II!" ! rem 105 
5750 GOT0537Q :rem 217 


5760 


5770 

5780 

5790 


5800 
581 0 


5820 
5830 
5B4 0 


5850 
5 860 
5870 


5 8 80 
5890 


5900 

591 0 
5920 


5930 

5940 


PRINTIl," RIUSCITE BENE A COMPRENDER 
E L* ALTRO, E DOVETE DARE MOLTA IMPG 


: rem 
: rem 
: rem 


97 

38 

220 


RTANZA A"; 

PRINT# 1 ," CIO* ” 

GOT0537G 

PRINT 11,” VI CAPITE MA DOVRESTE SFOR 
ZARVI PER ANDARE { 2 SPAZI} MEGLIO D* 
ACCORDO " : rem 240 

GGTOS37G : rem 213 

PRINT#!," TRASCURATE ABBASTANZA I SE 
NT I MENTI E PREFERITE MOSTRARLI SOLÒ 
AL " ; :rem 234 

PRINT# 1 , “MOMENTO OPPORTUNO" : rem 21 

GOTO5370 ; rem 216 

PRINT# 1,” NON BADATE MOLTO AI SENTIM 
ENTI E SIETE PIU* ATTACCATI AL SUCCE 
SSO : rem 85 

PRINT# 1 , "MATERIALE" : rem 1 83 

GOTO5370 : rem 21 9 

PRINT#]," I VOSTRI INTERESSI COINCID 
ONO PERFETTAMENTE CON QUELLI DELL* A 
LTRG" : rem 58 

G0T0544 0 : rem 21 9 

PRINT#!, " I VOSTRI INTERESSI COINCID 
ONO E NON FATE FATICA AD ACCETTARE " 
; : rem 54 

PRINT# I,"I PROGRAMMI DELL* ALTRO" 

: r em 224 

G0T0544Q ;rem 213 

PRINT# 1," PREFERITE DIRE LA VOSTRA P 
I UTTOSTO CHE ACCETTARE UN PROGRAMMA 
CHE NON"; : rem 205 

PRINT# I," VI VA*" : rem 127 

GOTO5440 :rem 216 


60 2fVb 



5950 


5960 

5970 

5980 


5990 

6000 

6010 
602 0 

6030 
604 0 


60 50 
6060 


6070 

60 80 
6090 


6)00 
61 1 0 
6120 


61 30 
61 4 0 
61 50 

61 60 


PRINT#1," SE QUALCHE VOLTA NON SIETE 
D* ACCORDO, PREFERITE SCENDERE A 

: reto 167 

FRI NT# 1 ^'COMPROMESSI PIUTTOSTO CHE L 
ITI GARE" : rem 114 

GOTG54 4 0 : rem 219 

PRINT# 1 f H NON ANDATE MOLTO D* ACCORO 
O E LITIGATE SPESSO, PERO 1 FATE SUBÌ 
TO PACE" : rem 191 

GOTO544 0 : rem 221 

FRI NT#]," NON PASSA GIORNO SENZA CHE 
VOI LITIGHIATE! ! I ** :*em 206 

GOTO5440 :rem 205 

PRINT# 1 r" SIETE UNA COPPIA CHE DURER 
A 1 A LUNGO 1L!U" : rem 8 8 

GGTO5510 : rem 20 5 

PRINT# 1 F '* SIETE UNA BELLA COPPIA E C 
ON POCHI SFORZI DURERETE A LUNGO" 

: r e rii 4 6 

G0T0551 0 :rem 207 

PRINTil," DURERETE SOLO SE SAPRETE F 
ARE FRONTE ALLEI 3 SPAZI } INEVITABILI 
DIVERSITÀ* w ; :rem 173 

PRINT# 1 , "DE I VOSTRI "TAB ( 35) "* CARATTE 
RI" t rem 74 

GOT0551 0 : rem 21 0 

PRINT# 1 , ” SIETE ABBASTANZA AFFIATATI 
E POTRESTE DURARE A LUNGO- . -MA CI V 
[JOLE tt ; :rem 168* 

PRINT# 1 IMPEGNO" : rem 39 

GOTG5 510 : r em 204 

PRINT# 1,” NON SEMBRATE MOLTO AFFIATA 
TI, DOVRESTE { 2 SP AZ I } METTERVI ASSAI 
D'IMPEGNO PER" : rem 72 

PRINT# 1, 11 DURARE" ; rem 2 22 

GOTQ551 0 :rem 207 

PRINT# 1 , ” LA VOSTRA COESISTENZA SEMB 
RA IMPOSSIBILE M SEem 203 

GOTO5510 : rem 20 9 
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Dalla grande 
edicola 


Jackson 

Tutto sull’ hobby 
e home computer 


Jn questo numero; 

MSX Basic: T 
puntata 
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QiMto prograui è dtdictto m 
quelle perioit che Intendono 
gett i re 1* proprie noto in mnie- 
re regionale e dispongono di nn 
disk drive. Come si m, le macchi- 
ne he bisogno di periodiche mm- 
intenzioni e, non «appiano ee vi 
è mai capitato, quando la al ritira 
dalla officina molto apeeao ci ai 
accorpa di avar dimenticato la 
commissione di altri tre o quat- 
tro lavoretti, o perché avevamo 
segnato tatto nn foglietto che 
è mi ite rima mente sparito, op- 
pa re perché fidavamo ciecamen- 
te selle nostra memoria di “fer- 
ro i 


I n questo caso MAGIC HAND potrà 
esservi d'aiuto non solo per quanto 
riguarda la manutenzione, ma anche 
per ricordarvi la scadenza dì bollo e as- 
sicurazione. 

In questo programma la grafica occupa 
un posto fondamentale, anzi sotto que- 
sto aspetto è pressoché identico al MA 
G1C DESK della Commodore, con la 
sola differenza che è scritto interamente 
in BASIC e che logicamente si occupa 
di tutt'altra cosa. 

Dobbiamo dire che siamo vivaci sosteni 
tori di questo tipo di programmi in cui 
si utilizza il joystick, anziché La tastiera, 
per una moltitudine di funzioni: prima 
di tutto perché è divertente, in secondo 
luogo perché è più naturale e intuiti- 
vo, 

Infatti computer come ii Macintosh del- 
la Apple basano la propria diffusione su 
una serie di programmi strutturati in 
questo modo, 

E chiaro che la tastiera verrà uguaimen 
te utilizzata in fase dì compilazione e 
archiviazione, ma per il resto possiamo 
rilassarci e lasciare che la “mano magi 
ca” si affatichi al nostro posto. 

Il programma inoltre è personalizzabile, 
in quanto rimangono a disposizione del 
Putente sei cassetti, per cui chiunque 
abbia un po’ di esperienza sulla periferi- 
ca a disco e sulla gestione degli sprite 
potrà sbizzarrirsi. 



Utilizzo del proirzaHt 


Il modo più semplice per sapere come 
utilizzare MAGIC HAND è quello di 
schiacciare il pulsante di fuoco quando 
il dito si trova a Livello del P intest azio- 
ne. 

Comunque, più in dettaglio, possiamo 
dirvi prima di tutto dì prendere pratica 
nel posizionare il dito sopra i cassetti, 
in quanto il loro accesso è vincolato a 
delle coordinate; se esse saranno cor- 
rette, un cicalino darà Pok* in caso con 
tra rio cinque minuti saranno sufficienti 
a prendere confidenza col program- 
ma. 

Le opzioni offerte sono: 

1) COMPILAZIONE: serve appunto a 
compilare il tagliando del bollo, dell'as- 
sicurazione o dei tipo di manutenzione 
precedentemente scelta. 

2) LETTURA: permette di leggere i dati 
archiviati. 


3) R [COMPILAZIONE: da utilizzare 
quando i dati in archivio vanno modifi- 
cati. 

4) MENU: fa ripartire il programma. 
Fate attenzione alla opzione n. 3, per- 
ché essa modifica totalmente i dati ar- 
chiviati precedentemente. 

Il dischetto che compare sulla scrivania 
è a nostro avviso una opzione d 'obbligo 
per sapere quali voci sono già state in- 
serite nella directory del disco e questo 
vedrete che si rivelerà un aiuto prezio- 
so. 

Quando vorrete chiudere il program 
ma, a meno ^he schiacciate RUN/ 
STOP, vi sorgerà il dubbio che si sia 
dimenticata questa importantissima 
funzione. 

Non è assolutamente vero; è un piccolo 
segreto che lasciamo a voi scoprire, e 
quando lo avrete fatto sarete sicuri che 
con il vostro C64 è possibile fare pro- 
prio di tutto. 
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Magie hand 


1 REM* ************************ 

: rem 

47 

2 REM* * 

MAGIC HAND PER C-64 ** 

:rem 

251 

3 REM** 

L’UFFICIO PER L'AUTO** 

: rem 

202 

4 REM** 

BY MARCO ZANOLLO ** 

; rem 

236 

5 REM** 

VIA AIRONE 1 0 MI ** 

: rem 

99 

6 REM** 

TEL ,02/879684 ** 

: rem 

176 

7 REM* * *********************** 

;rem 

53 

lù PRINT 

"{CLR) H : POKE53261 , 6;FOKE5328Q 

,6 



: rem 

96 

300 V= 53248 

; rem 

44 

310 FQRX 

= 832T0894 : READQ : POKEX , o 

:NEXT 




: rem 

83 

315 FORX 

=896T0958: READO ì POKEX, 0 

:NEXT 




; rem 

99 

320 FORX 

= 960TO 1 022 : RE ADO: POKEX, 

Q ; NEXT 




: rem 

1 1 8 


3btl POKE20-1U, 1 J: POKE2041 , 1 4 : POKE2042 , 1 5 

;ceiti 161 

36U POKEV + 37 , 1 : PQKEV+ J8 , 0 : FOKEV+39 ,10: POK 
EV+2tì , 7 : POKEV+40 ,10: POKEV+41 ,11 

370 h- I76:B= : 80:C = 2UQ 
380 POKEV+21 ,3tGOSUB2QOO 
400 E=Sb320 

403 IFPEEK(E) =1 26THENB=B-S 
41 0 IFPEEK (E) -1 1 9TH£NA=A+5:C=C+5:rem 
415 IFPEEK (E) ~1 25THENB=B+5 
420 IFPEEK (E) =1 23THENA=A 5 : C=C- 5 : rem 
425 1FP£EK(E) -1 1 1ANDA =66THENGGSUB220G ; GO 
SUB 2300 

430 IFPEEK (EJ - 1 1 1 AND A - 1 4 1 THENGOSUB22GO : G 
OSUB24 00 : rem 139 

435 IFPEEK (E) =111 ANDA =211 THENGOSUB22QO ; G 
OTG25QQ :rem 72 

440 IFPEEK(E) =1 1 1 ANDB= 129THENGOSUB220G:GO 
TOSOOO srem 75 

445 IFPEEK (E) =1 1 1 AND3= 79THENGQSUB22Q0 : GOT 

O10000 : rem 80 

446 IFPEEK (E) =1 1 1 ANDB= 21 4 ANDC= 25UTHENGOTO 


: z era 

1 9 

treni 

35 

: rem 

1 37 

itera 

22 

: rem 

II 

: rem 

98 

:rera 

9 

; rem 

98 

UB220G 

SGO 

:rera 

1 00 



20000 

:rcm 

229 

450 

I FB< 5 5THENB= 55 

* rem 

40 

455 

IFB> 2 3 QTHFNB-2 3 0 

treni 

133 

460 

IFA< 30THENA=30 : C- 54 

itera 

60 

465 

1FC>250THENC=250: A-226 

t rem 

222 

500 

POKEV+G , A ; POREV+ 2 ,C 

;rem 

109 

505 

POKEV+1 , B : POKEV+ 3 , B t POKEV + 4 , 

150: POKEV 


+5,125 

;rem 

55 

51 0 

PGKEV+21 , 7 : GOTO40 0 

: rem 

1 9 


1000 DATAQ, 0, U, 0, 42, 1 60, 34,170, 1 70,138,1 7 
0,170, 170, 162,170,32,0, 10, 0,2,162 

:rcm 37 

1 Oli 3 DATAU, 10, 1 36,0,4.2,32, 0, 42, 136,0, 1 0, I 

30.0. 2.42.0.0.170.0.0.1 70 :rem 1 31 

1010 DATAU , 0, 0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

0,0,0, 0,0 :rem 60 

1015 DATA0, 0,0,0, 1,85,160,7,85,170,175,65 
,170,1 70, 1 49, 1 70, 170, 1 49, 1 70, 170, 149 

: rem 246 

T020 DATA4 2,! 70, 1 49 , 1 0 , 1 7 0 , 1 49 , 42 , 1 70 , 93 , 

170.135.93. 168.1 .85.160.0. 0.0.0.0 

:rem 75 

1 025 DATAQ, U, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 
0,0, 0,0,0 trem 66 

1030 REM* * * DI SCHETTO * * * * :rem 1 1 7 

1035 DATAI 70, 170,1 70,1 70,170, 1 70,1 49,106, 
1 70, 14 9,1 06, 1 68, 1 49 , 1 0 b , 1 68 : rem 80 

1 04 0 DATAI 49,1 06, 1 70 , 1 70 , 1 70 , 1 70 , 1 70 , 1 70 , 
170,170,130,170, 1 7U, 0,1 70, 170,20,1 70 

:rem 222 


1043 

10 50 

2000 
201 0 

2020 

2025 

2030 

2035 

2040 

2041 

2042 

2043 

2044 

2046 

2047 

2049 

2050 

2055 

2060 

2065 

2070 


2075 


2077 

2080 


2065 


datai ?q, 20, 1 70, 1 70,0, 1 ;o, 1 70, 1 30, 170 

, 1 70, 170,170, 170, 1 70, 170,1 70, 130, 1 70 

trem 21 8 

DATAI 70, 1 3U, 1 70, 170, 1 30, 1 70, 170,1 30, 
170,170,130,170 :rem 212 

REM :rem 166 

F0RB=BT022 0 ; PGKEV+ 1 , B ; POKEV+ 3 , B t NEXT 

trem 47 

FQRB-BTQtìOSTEP-1 :POKBV+? ,B:POKEV+3,B 
; NEXT : rem 1 58 

PRINT" { 2 GIU 1 } " TAB ( 5 ) ” {RVS } { YEL } MA 
GIC HAND [OFF 1 " : PRINTTAB [5) 11 {RVS} (C 
) 1 9841 3 SPAZl}{QFF}” trem 145 

PRINTTAB (5) " [RVS j BY ZANOLLO {OFF} 1 * 

trem 81 

PRINT" [HOME] i 2 GIU 1 } 11 trem 208 

REM trem 170 

PRINTTAB (23) " {BLK} [<M>] [<*>J {RVS} 

{ 7 SPAZI} [<*>J {OFF}” :tem 190 

PRINTTAB 1 23) 11 {BLK} [<H>\ {<*>} {RVS} 

{ 7 SPAZI} K*>j {OFF}” trem 191 

PRINTTAB (2 3) " [BLK ) [ <M> ] { 2 SPAZI} 

[ < * > 1 { RVS } { 7 SPAZI} [<*>] {OFF}" 

* rem 192 

PRINTTAB (23) n {BLK} [<M>] { 3 SPAZI) 
[<*>]{ RVS ){ 7 SPAZI } [<*>} {OFF}" 

: rem 1 93 

PRINTTAB (23) " [<M>] N SPC (4) "{RVS) 

[< 8 Y>J {OFF}" trem 220 

PRINTTAB (23) " {<M>J "SPC (4) "{RVS} 

{ 8 spazi} {OFF}" trem 37 

PRINT" { 3 SPAZI } {RVS }£[ 20 SPAZI} 

[ < * > ] { OF F } [ 3 SPAZI} (RVS }{ 2 SPAZI} 
J{ 2 C}k{ 2 SPAZI} [OFF}” trem 139 
FRI NT" { 2 SPAZI} {RVS} t{ 22 SPAZI} 
{<*>]{ OFF }{ 2 SPAZI} {RVS }{ 8 SPAZI | 
{OFF}” trem 104 

PRINT” { RVS j £ { 24 SPAZI }[<*>} {OFF } 
(RVS}[< a Y> ] {OFF } " :repi 37 

PRINT" {RVS }fc[ 26 3PAZ I } l < * > 3 {OFF } 

{ RVS } { 6 SPAZI HOFF]” trem 105 

FRI NT" {RVS} [<7>]{ 28 SPAZI} {OFF} 
{RVS} {BLK} £ 2 SPAZI} J{ 2 CjK 
{ 2 SPAZI} {OFF}*' itera 43 

PR1NT" {RVS } {<!>} [OFF} {RVS} {BLK} 

{ 3 SPAZI }AS{ 3 SPAZI} {OFF} {RVS} 

[<7> 1 {OFF} {RVS) {BLK) { 3 SPAZI }BO 
{ 3 SPAZI} {OFF j {RVS} [<7>I [OFF H RVS } 
(blkH 3 SPAZI }MA[ 3 SPAZI] {OFF} 

{RVS } (.< 7> ] {OFF}{RVS}{ 2 BLK} 

{ 8 SPAZI} {OFF}" trem 165 

FRI NT" {RVS } [ < 7> ] {OFF H RVS } {BLK } 

[ 2 SPAZI]J{ 2 C } K{ 2 SPAZI } { OFF } 
{RVS} [<7>J [QFFT { RVS } £ BLK } 

{ 2 SPAZI }J{ 2 C } K { 2 SPAZI} {OFF} 
{RVS f L <7> j {OFFj {RVS} [BLK} 

{ 2 SPAZI }J{ 2 C } K { 2 SPAZI} {OFF} 
{RVS} t<7>] {OFfT{RVS}{ 2 BLK} 

[< 8 Y > J { OF F } n :rei 0 

PRINT" {RVS} [<7>j { 28 SPASl}{OFF) 

{ RVS } { BLK } { H SPAZI } [OFF } ” itera 19 

FRI NT 11 {RVS} i<7>] [OFF) {RVS} {BLK} 

{ 8 SPAZI } [OFF H RVS }[< 7> j {OFF}{RVS} 
{BLKH 8 SPAZI} {OFF HRVS} [<7>) {OFF} 
{RVS) {BLK} { 8 SPAZI } {OFF} {RVS } [<?>} 
{OFF } { RVS J { 2 BLKH 2 SPAZI }J 
{ 2 C)K{ 2 SPAZI } (OFF } M :iera 14 

PRINT h TrvS) [< 7>j {OFF} {RVS} {BLK} 

{ 2 SPAZI ]J{ 2 C}K{ 2 SPAZI }{OFF} 
{RVSj [<7>] {OFF! { RVS } [ BLK) 

{ 8 SPAZI } {OFF }{ RVS )(< 7> j (OFFltRVS) 
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241 3 PRI NT" {RVS} 1 {OFF} COMP I LAZI ONE" : PR 
INT" { 17 C}" : rem 250 

2^20 FRI NT" { RVS } 2 (OFF) LETTO RA BOLLO 


PRI NT " { 17 Ci"- PRI NT" {KVS } 3 iOFFj R 
ICQMP* ” itero 224 

2425 PRI NT" { 17 C } " : PRINT" {RVS } 4 { OFF j M 



ENU f " 

ire® 

20 ti 

2430 

A^ 1 6 1 > : C - 1 9 U * B* 84 

itero 

91 

2440 

IFPEEK (E] “12 6THENB-B- 3 

: tero 

80 

24*5 

IFPEEK { E ) ■ 1 23THENB=B+b 

itero 

82 

24 b0 

IFPEEK 1 H } ■ 1 1 1 AN D 6 4 THENGOSU B 22 00 

:GO 


T0400U 

;rero 

75 


{BLKH Z 6PAZ I } J i 2 C > K { 2 SPAZI J 
(OFF J t RVS J L < 7> ) {GFfT{RVS]{ 2 BLK J 
{ ti SPASI! } { OFF } “ irem 46 

2090 PRINT" {RVS }[</>} i 10 SPAZI }{OFF} 

tRVSHBLKH & SPAilHOFFÌ {KVS} [<7>] 

[ 9 SPAZI } [OFF }{RVS} Ì<7>] C OFF) {RVS} 
{ 2 BLKJU 8 Y> 1 {OFF } " :rem 6 

2095 PR1NT M IRVS} l< 7>] {OFF H RVS HBLKj 

{ ti SPAZl){OFFJ {RVS} [<7>] iOFFj{RVSi 
( BLK j { b SPÀZI } (OFF } [RVS j {< 7> J iOFFj 
{RVSj (BLKJ { 6 SPAZI JW {OFF ì l RVS j 
{ < 7> } {OFF J { RVS } { z BLKj{ & SPAZI } 
[OFF } 11 : rem ZGti 

2100 PRINT" { RVS H<7>) [OFF 1 {RVS } {BLK} 

{ 2 SPAZI )J{ 2 C]K{ 2 SPAZI] {OFF} 
{RVS} L < 7 > J {OFF? { RVS } { BLK] 

( b SPAZI }{0FF} {RVSÌ k <7> 1 {OFFJlRVS} 
(bLK}{ z SPAZI ì J [ 2 C)KK {OFF}{RVS} 

[<7>l {qffHrvsTI 2 BLKj{ 2 SPAZI }j 



{ i CÌKl i SPAil ) (OFF J " 

itero 

20 

2103 

PRI8T"IrVSH< 7>] t I O SPA21HOPF) 



{ RVS } [ BLK } { W SPAZI} {OFF ]{ RVS H<7>] 


{ 9 SPAZI HOFF} [RVSj l<7>] 

{OFF H RVSj 


{ 2 BLK } { ti SPAZI) [OFF]" 

itero 

75 

21 1 0 

RETURN 

:rem 

1 64 

2200 

REM****PIP*** ******* 

itero 

221 

2210 

FOKE54 29b ,15: PQKE54 295 , 0 

: rem 

94 

2215 

VV* 54272 

: rem 

183 

2220 

PO KE V V + 6,0: POKEVV+ 5 , 3 1 

itero 

99 

2225 

POKEVV+1 , 1 80 ; POKEVV+ 4, 3 3 

: tero 

205 

2230 

FORNN* 1 TO 1 00 ; NEXTNN 

itero 

1 

2235 

POKEVV+ 4,0: RETU RN 

itero 

124 

2300 

REM * * * ASSI C URAZ IONE * ****** 

1 itero 

45 

2310 

PRINT" {HOME] {RVS ji { WHT } ASSICURAZIONE 


{OFF}" i PRINT 

i tero 

2 50 

2315 

PRINT" ì RVS) 1 {OFF} COMPILAZIONE 

"iPR 


IHT"( 17 Cl" 

irero 

249 


2320 PRINT" {RVS } 2 {OFF} LETTURA 


( 7 SPAZI}" :PRINT"{ 17 C}"i PRINT" 
{RVS} 3 tQFF} RlCOMP." irero 103 

2325 FRI NT* { 17 C } 11 ; PRI NT" { RVS } 4 {OFF} M 



ENU 9 " 

irero 

207 

2330 

A-166;C*1 90iB=84 

itero 

90 

2340 

IFPEEK (E ) - 1 26THENB=B- 5 

: rem 

59 

2345 

IFPEEK t E ) * 1 25THENB=B+5 

itero 

61 

2350 

IFPEEK (E) =1 1 1 ANDB=tj4THENGOSUB220U 

: GO 


TC30U0 

; tero 

73 


2 3t>Q IFPEEK CE) =1 1 1 ANO B= ti 4THENGOSU B2 2 0 0 : GO 
TO3200 uera 76 

2370 IFPEEK(E>*H 1 ANDB=99THENGOSUB22QO:PR 
I NT" { CLR } " : GQSU B 3 ! 00 : GOTO 3 020 

itero U3 


24 bO IFPEEK (E) a 1 1 1 AMDti- 84THENGQSUB22Q0 ; GO 



T04200 

: tero 

80 

2470 

IFPEEK 1E) -1 1 1 ANDB=99THENGOSUB220UiGO 


SU B 4 1 6 0 i GOT04 0 2 0 

: cero 

220 

2 480 

IFPEEK (E) *11 IANDB*1 1 4THENGOSUB2200 ; R 


UN 

itero 

114 

2483 

POKEV+0 , A : P0KEV+ 2 , C 

itero 

171 

2490 

POK£V+l ,B:POKEV+i,B:GOTO2440 




irero 

230 

2 300 

REM** * * MANUTENZIONE ***** 





: rem 

64 

2501 

PQKEV+2 1 ,3 

i rem 

58 

2503 

PRINT" [CLR) [RVS ì [<7>j MENU 

1 MANUTENZ 


IONE [OFF ] " 

itero 

103 

2310 

A-170:C=l94:B-b4 

: tero 

ti 9 

2320 

PRINT" {GIU* } {RVS} 1 {OFF} 

IMF * KECC AN 


ICO*-" : PRINT" (GIU 1 J IRVS } Z 

{OFF} 

IMP * 


IDRAULICO^" 

:rero 

ne 

2330 

PRINT" {GIU* } [RVS] 3 {OFF} 

IMF - ELETTE 


ICO*-" : PRINT" {GIU * } { RVS j 4 

IOFFJ 

CARR 


OZZERIAt Z SPAZI}-" 

: lem 

64 

2b40 

PRINT’MGIU* HRVSi 5 {OFF} 

MENU 1 " 



itero 

228 

2550 

IFPEEK (E) = 1 25THENB“B*5 

itero 

59 

2555 

IFPEEK (E) =1 26THENB-B^5 

irero 

67 


2S60 IFPEEK [E] «1 1 1 ANDB- b4THENGO3UB2200 i PO 
-1 :OP$" N IMF - MECCANICO 11 ; GOTO2700 

: rem 173 

2 5 ti 5 I FPEEK ( E ) = 1 1 1 ANDB= 7 9THENGOSU B2 2 0 0 : PO 
*2 :OPS = " IMF * IDRAULICO" :GOTO270U 

;rem 211 

2 570 IFPEEK lEj = 1 1 1 ANDB- 39THENGOSUB22GU ; FU 
a i i OF$ = "T MP - ELETTRICO" : GOTO 2700 

;rem 22 3 

2575 IFPEEK CE) «1 t 1 ANDB= 1 1 4 THeNGOSUB 220U : P 
0*4 iGPS -"CARROZZERIA" : G0'i'02700 

itero 132 

2 btiU IFPEEK [E)*ì 1 1 ANDe=l29THENGOSUB22uO:R 
UN ' itero 121 

2 5bb 1 F B< b 4 VHENB * 8 4 :rem 99 

2b9U IFfì> 1 2 9THENB- 1 29 item 197 

2dUù PQKEV+U, Ai FGKEV+1 ,Ri PGKEV+ 2, C: FOKEV+ 
3 , B ite m 180 

2610 GOTO2 350 itero 2 Db 

2700 REM** * * SCELTA MANUT-***** itero 150 
2 70 5 PK1NT" {CLR } " : PRINT" {RVS]"OP$ N {OFF}" 

itero 232 

2710 PRINT" t G I U * } l RVS } 1 tOFF} COMPÌ LAZIO 
NE" i PRINT" { 18 C}” itero 204 

2715 PRINT" tRVS} 2 {OFF} LETTURA" : PRINT" 

{ 18C}" :rem 88 

2720 PRINT" {RVSj S [OFF t RICOMP - * ; PRINT" 


2380 IFPEEK CE) = 1 1 1 ANDRA1 1 4THENGOSUB2200 : R 
UN stero 113 

238 b POKEV+0, Ai PQKEV+2 ,C itero 170 

2390 PQKEV+1 ,B: POKEV+3 ,B:GOTO2340 

•rem 228 

2400 REM * * * BOLLO ****** :rero 156 

2410 PRINT" [HOME M RVS HyELH 3 SPAZI] BOLL 

Qt 3 SPAZI] {OFF]" : PRINT itero 44 



{ Iti C|" 

; rem 

44 

2725 

PRINT" {RVS} 4 {OFF) OPZIONI 

" iPRIN 

T" 


4 18 Ci" 

itero 

98 

2730 

A» 1 70 i C“ 1 94 : B-7 4 

irero 

94 

2735 

IFPEEK (E) “125THENB=B+5 

itero 

64 

2740 

IFPEEK (E) =1 2bTHENB-B- 5 

itero 

63 

2745 

1FB<74THENB=74 

itero 

99 

2750 

IFB> 1 24THENB* 124 

itero 

105 
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2755 IFPEEK (E } = 1 1 1 AND B= 74 AND PO- 1 THENGOSUB 
2200 : GOSUB522G : GOTO60C □ :rem 185 
27 bù IFPEEK{E) =11 1 ANDB=74ANDPQ=2THENGOSUB 
2200 : G05UB524Q : GQTObUU 0 :reui 184 
2765 IFPEEK {E ) = Il 1 ANDB= 74ANDPO=3THENGOSU B 
2200 : GOSUB526U ; GCTO600U :rem 192 
27 70 IFPEEK (E) ”1 1 1 ANDB=74ÀNPPO=4THENGOSUB 
■ 2200 : GGSUB5280 ; GOTObQOO :rem 191 

2775 IFPEEK (E) =11 1 ANDB-89ftNDPO= 1 THEKGOSUB 
2200 : GUSUB53 1 0 : GOTO 60 50 irein 198 

2780 XFPEEK (E) = 1 1 1 ANDB=89ANDPO=2THENGOSUB 
2200 ; GOSUB5320 : GOTO 6 050 irein 196 

2785 XFPEEK (E) =1 1 1 aNDB= 89ANDPQ = 3THENGQSUB 
2200 ; GGSUB5330 : GOTO 60 50 :rem 203 

2 790 IFPEEK (E) ^U1ANDB=B9ANDP0 = 4THENGQSUB 
2200 : GQSUB5340 : GOT06G 50 :rem 201 

2795 IFPEEK (E) =111 ANDB=1 G4ANDPO= 1 THENGOfìU 
B2200 : GGSUB536Q 1 GOTObQOO : rem 236 

2800 IFPEEK (E) =1 11 ANDB= 1 04 AND PO = 2 THE KG O SU 
B2200 : GQSUB538Ù : GQTO60QG :rem 226 

2805 IFPEEK {E) - 111 ANDB= ì Q4ANDPQ=3THENGQSU 
B2200 : GOSUB5400 :GOTQbOOO : rem 225 

281 0 IFPEEK ( E } = 1 1 1 ANDB= 1 Ù 4 AMD PO = 4THENGQSU 
B2200;GOSUB5420:GOTOb000 :rern 224 

2815 XFPEEK ( E ) = 11 1 ANDtì= 1 24 THENGOSUB 2 200 l G 
OTO250U ' rem 1 2d 

29 00 POKEV+O , A : FOKEV+1 , B : POKEV+2 f G ; FGKEV+ 
3 , B uem 183 

2910 GOT0273S :rem 214 

3000 REM** **ÀSS ICURA2 IONE* ******* * * 

;rem 211 

3005 PGKEV+21 , 0 :rem 55 

3010 PRINT" {CLR}{ RVS} {YEL} ASSICURAZIONE 
{OFF ) :rem 40 

30 1 5 OPEN 3 , 8 , 3 , " ASS I CU RAZIONE , S , W" 

;rem 67 

3G2o ; ;rem 255 

3025 INPUT 11 {GIU 1 j NOME ASSICURAZIONE : " ; A$ : 

1 FLEN { A$ ) >2 0THEN 302 5 :r fisi Ì43 

3050 INPUT” NOME ASSICURATO: " ?N$ : rem 174 

3u3 5 INPUT "N * POLI ZZA : 11 ; P$ :rem 4 5 

304 0 INPUT" ASSICURATO ABITANTE IN VIA:";V 
$ :rem 71 

3045 INPUT"CITTA 1 : " ;C$ itera 24 

3050 INPUT"TARGA VEICOLO:" ;T$ :rem 9 

3055 INPUT”bJ. CAVALLI FISCALI :";H$ 

:rem 245 

3060 INPUT" ASSICURAZIONE VALIDA DAL {///}" 

: rem 131 

3065 INPUT" AL GIORNO {///)" }D$ :rem 126 

3070 PRINT#3 , A3 : PRINT43 , N3 : PRINT*3 , PS : PRI 
NT# 3 , V? : PRINTI3 t C$ : PRINT#3 , T$ 

: rem 234 

3075 PRINT#3,H$:PRINT#3,G$:PRINT#3,DS 

; r em 17 5 

3080 PRINT#3 ; CL0SE3 : PRINT" { 14 GIU 1 Jr (RVS ) 

MENU ' { OF Ff 11 irem 138 

308 5 POKEV+2 1 , 3 : POKEV+0 , 1 50 ; POKEV+ 1 ,23G:P 
GKEV+2,1 74:POKEV+3,23U :rem 188 


3090 IFPEEK (E) =1 1 1 TMENGQSUB220U ; RON 




itero 

136 

3095 

GOTO 3090 

: rem 

214 

3100 

PRINT" {CLRHRVS) 

RI COMPILAZIONE 

MODO 


LO {OFF}" 

nera 

193 

3101 

POKEV+21 ,0 

nera 

52 

3103 

OPEN 3 , 8 , 3 , " @ 0 I ASSICURAZIONE , S , W 11 

: RET 


URN 

nera 

7 

3/00 

REM * * * * LETTURA ASS ICURAZ I ONE ***** 



: rem 

36 


320^ POKEV+21 , 0 : PRINT" { CLR ) “ : PGKE 53 281 , 1 

: r ern 1 6 0 

3210 OPKN4,8 f 4, "ASSICURAZIONE, S,R" 

ireiti 61 

3220 INPUT #4 , A$ : INPUT #4 , N$ ! INPUT# 4 , P? t INP 
UT# 4 , V? : INPUT #4 , C$ ; INPUT #4 , T$ 

;rem 255 

3225 INPUT# 4 , : INPUT #4 , G$ : INPUT# 4 , 

:rem 184 

3230 PRINT" {CLRHbLK} {GIU 1 }{ 4 DESjASSICU 
RAZIONE " ;A6 Jretfl 1 93 

3235 PRINT"{ 2 GIU 1 } { RED ) "TAB { 7 ) "CERTI FIC 
ATO DI ASSICURAZIONE" :rem 25 

3240 PRINTTAB ( 7 } " {BLK } ! 28 C} M :rem 221 
32 45 PRINT"! 2 GIU 1 } { RVS j { <2> H 3 SPAZI} 
contraente! io spazi Inumerò polizza 

! 3 SPAZI} {OFF }{BLK}" :rem 124 

32 50 PRINT" { DES } " ? N $ * SPC ( 3 ) f P$ Jrem 170 
3255 PRINT" (DES }V,!DESr;V$ 19 

3260 PRINT" (UES) 11 ;C$ :rem 91 

3/6 5 PRINT" {GIU 1 } [RVS} i<2> ] ( 3 SPAZI }TARG 
A VEICOLO! 6 SPAZI} POTENZA HP {FISCO 

{offHblk}" ;Eem 

3270 PRINT" {DES}" ;T$, SPC (10) ;H? :rem 2lb 


3275 PRINT" (GIU 1 } (RVS) {REDI l 8 SPAZljVALI 
DITA 1 ASSICURAZIONE! 9 SPAZI} [OFF}" 

:rem 200 

32 80 PRINT" {DES }DAL{ BLK} { DES }*' } G$ , S PC { 5 } " 
t RED } AL [ BLK } { DES } " ; D $ :rem 180 

3285 CLOSE4; PRINT"! 2 GIU* } " TAB { 8 ) " { RVS } 
{RED} MENU 1 {OFF}" : rem 105 

3290 POKEV+21 , 3 : POKEV+0 , 1 50 : POKEV+ 1 ,23G:P 
OKEV+2 , 1 74: POKEV+3 , 230 : rem 186 

3 30 0 i FPEEK (E) =111 THENGQSUB22 0 0 : RUN 

:rem 130 

3305 GOTO 3300 :rera 202 

400U reM****BOLLO******************* 

itera 230 

4005 POKEV+21 ,0 ;rem 56 

4010 PRINT" iCLR}{GIU* ] { RVS } i YEL | 

{ 2 SPAZI JCOMPILAZIONE TASSA AUTO MG B 
ILI ST1CA 1 2 SPAZI} {OFF)" :rem 235 

401 5 OPEN3#8,3, "BOLLO, S,W fl itera 220 

4020 : itera 0 

4025 INPUT" [GIU 1 } PAGAMENTO DI £;";LS 

itera 26 

4030 INPUT" NUMERO TARGA: ";T6 itera *Gh 

4035 INPUT "COD ICE TARIFFA:" ;CS itera ^2 

4040 iNPUT" CAVALLI FISCALI :"?HS itera 116 

40 43 INPUT" SCADENZA {MESE g ANNO ) : " ; S? : IF 
LEN { S$ ) > 1 0THEN 404 5 nera 200 

40 50 PRINT#3 r LS : PRINT#3 ,T$:PR1NT#3 PRI 
NT #3 , H$ : FRI NT #3 r S$ nera 46 

4055 PRINT#3 :CLOSE3: PRINT" { 15 GIU*}"TAB{ 
8} u {RVS} MENU 1 {OFF} nera 32 

4060 POKEV+21 f 3: POKEV+0, 1 50 : POKEV+ 1 , 2 30 : P 
0 KEV+ 2/174: POKEV+ 3,230 nera 182 

4065 IFPEEK {E ì =1 1 1 THENGGSU B 2 2 0 0 : RUN 

nera 139 

4070 GGT04065 nem 21 ì 
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4160 PRINT" {CLR j { GIU ' HRVSHYEL} 

{ 2 SPAZ I } RICOMPI LA Z IONE TASSA AUTOM 
OBI LI STIC A i 2 SPAZI ) {OFF } " :rem Uù 

4161 POKEV+21 ,0 srem SS 

4165 O PEN 3 , S , 3 # * * 0 ; BQ LLO , S , * ' * s E ETU RN 

:rem 1 òb 

42011 REM * * * * LETTURA BOLLO********* *** 

:rem 227 

420 5 PGKEV+21 , U : PRINT" tCLR ) " : POKES32B1 f 1 

siem Ibi 

4210 OPEN 4 « tì , 4 , "BOLLO , S , R” siem 214 

421 b lNPUTt4 , LS : INPUT 14 , T$ : I NPUTI4 , C$ : INP 
UTf 4 , H$ : INPUT! 4 , SS srem 69 

4230 PRINT" {CLR|{ 2 GIU * } W TAA(S) " {RVS ) 

{BLU} TASSE AUTOMOBILISTICHE {OFF}* 1 

srem 232 

4235 FORI^lTOlV srem 119 

4240 PRINTTAtìl 5) "{RVSl {BLU| {OFF j "SPC ( 22 ) 
w IRVS ì [ BLU ) {OFF J " : NEXT 5 rem 214 
424 5 PR I NTTAB t 5 ) " { RVS } (BLU } { 24 SPAZI) 

{OFF}" :rera 192 

4250 PRINT" {HOMEJi 4 GIU ' ) "TAB ( 7) " {BLK } LI 
RE { 2 SPAZI } ** ; L$ : PR X NT" t G I(J 1 } " TAB { b J 
w tRVS} {BLU 1 SIGLA E NUM. DI TARGA 
[OFF }” :rem 77 

4255 PRINT* 1 (GIU 1 J i BLK J "TAtM 7) ;T5sPRINT" 
{GIU * } "TAB (d) ” tRVS j t BLU} COOPTAR* 
i 3 SPAZI } DATI FIS. {OFF) {BLK}" 

srem 176 

4260 PR I NT" {GIU * j " TAB { 7 ) ;C$,SPC(l0j ;K$ 

:rem 2b 

426 5 PRINT" tGlU 1 } "TAB 16} 11 {RVS }{BLU} 

{ 6 CI SCADENZA { 6 C I {OFF }{bLK I w : PR 

INT" i 2 GIU* |* t VAd(12TjS9 ;rem 127 

4270 CLOSE4 ; PRINT" t 5 GIU 1 } "TAB { 8 > ■ {RVS j 
{REDI MENU* lOFFj" srem 151 

4275 POKEV+21 ,3:PQKEV+0, 1 5u : PQKEV+1 ,230;P 



OKEV+2, 1/4: POKEV+3,230 

:rem 

1 90 

4zbU 

IFFEEK (E) “ 1 1 1 THENGOSUB22 

OOsRUN 




srem 

138 

42 85 

GOTQ42 bU 

: rem 

218 

4999 

REM* * * * LETTU RA DIRECTORY 





srefn 

61 

5000 

POKEV+21 , 0 : PRI NT" {CLR } { RVS j {<1>J 



{ 4 SPAZI j ANALISI DISCO 

iCÌ 



{ 4 SPAZI ì tOFFj iWHTJ" 

z rem 

3 

5005 

PRI NT* 1 t 4 C } 1 <R> J { 19 Cj 

" :rem 

21 0 

5010 

OPEN 1 ,6,0,'*$Ù H 

srem 

173 

5020 

GET|l,A6,BS 

: rem 

30 

5030 

GET#1 ,AS ,BS 

; rem 

31 

5040 

GET#1 , AS , B$ 

: r em 

32 

50 50 

c=o 

: rem 

1 22 

5060 

IFASO" *' THENC-ASC tAS) 

srem 

185 

5070 

I FB$ < > *' ,r THENC =C +ASC { BS j * 

25b:rem 

241 

50b0 

FRI NT" {RVS } "MID^ tSTKS {Cì 

,2) ; TAB ( 4 } 11 


{OFF I B" ,* 

srem 

120 

5o90 

GETil ,BS : 1FST< >0THENbl 75 

:rem 

175 

51 00 

IFBSOCHR6 1 34 ) T11EN 50 9 U 

srem 

235 

5110 

GET f 1 ,B$: IFBSOCHRS (34)THENPRINTB$; : 


GO’rObl 1 0 

: rem 

1 34 

51 

GETil ,B$i IFtì$-CHRS t J2)THEN512Q 




srem 

168 

51 30 

PRI NTTAB (21) ; ;C$- ,,W 

:rem 

62 

51 4 0 

C6 S C S+BS ; GET i 1 ,BS: IFBSO 

11 "THEN51 4 0 



srem 

76 

51 50 

PR I NT" { RVS } " LEFTS {CS , 3 ) 

srem 

20 

5170 

IFST-OTHEN5030 

srem 

103 

5175 

PR I NT" t RVS } BLOC KS FREE t 

b SPAZI) 

M 



srem 

149 

5180 

CLOSE1 SPRINT” ( 9 G IU 1 } "TAB t 8} " {RVS } 


[<1>) MENU* {OFF}" 

srem 

62 



51 65 POKEV+21 , 3 : FOKEV+O, 1 bo ; POKEV+ 1 , 2 1 0 : P 
QKEV+2, 1 74 s PGKEV+3, 21 0 : rem 187 

51 90 IFFEEK {EJ »1 1 1 THENGOSU B 2 2 00 s RU N 

;rem 139 

5200 GUT0519U 5 rem 207 

52 10 RK m******»»** ********************* 

siem 194 

5220 POKEV+21 ,0 ;rem 56 

5230 QFEW3,b,3 # 11 IMP.MECC,S, W"; RETURN 

:rem 170 

5240 POKEV+21 t 0 : rem 58 

5250 OPENi, 8, 3 ,"IMP, IDRA, S,W": RETURN 

srem 180 

5260 POKEV+21, 0 :rem 60 

5270 OPEN 3 ,6,3, "1MP . ELET , S , W" : RETURN 

:rem 192 

5260 PuKEV+21, 0 ;r em 62 

5290 OPEN 5,8,3, "CARRO 2 Z , S , W” s RETU RN 

srem 175 

5300 REM * * * * * APRE LETTURA MAN -*•* + *** 

: r em 24 7 

5310 OPEN4,tì,4, "IMP. MECO, S,R": RETURN 

srem Ibb 

5320 OPEN 4 ,8,4, Ti iMP . IDRA ,S,R W : RETURN 

: rem I7b 

5350 OPEN 4,8,4, "1MP* ELET , S , R” : RETURN 

srem 186 

5340 OPEN4 ,6,4, "CAKRGZZ , S,R” ; RETURN 

srem Ibb 

5350 REM* * * * * RICOMP I LAZ IÒNE MAN ****** 

srem 128 

5360 POKEV+21, 0 srem 61 

5370 OPEN3,o,3,"tfO: IMP *MECC , S , W" : RETURN 

srem 89 

5 jSO POKEV+21, 0 srem 63 

5390 OPEN 3,8, 5, "80: 1 M P > IDRA , S > W" : RETU RN 

srem 99 

5400 POKEV+21, 0 siem 56 

5410 OPEN 3 , 6 , 3 , " U : IM P . ELET , 5 , W " : RETURN 

: rem 102 

5420 POKEV+21, 0 srem 58 

54 30 OPEN3, 6,3, : C ARROZ2 , S , W" : RETURN 

:rem 85 

6000 REM * * * KQUT 1 NE SCRITTURA MAN.**** 

;rem 193 

6005 FRINT"{CLR}{ 2 GIU ' }{RVS } "OP$ 11 {OFF } 

* PER FINIRE" : rem 202 

6010 I NPUT" t G I U 1 }ORG ANO INTERESSATO : " ; U S s 
IFO6 = "* ,, THLN60 35 :rem 143 

60 1 s INPUT" {GIU f ) TI PO DI MANUTENZ IONE : " ; T 
$ srem 4 

6020 INPUT" {GIU 1 j ROTE : " ; N$ srem 202 

6025 FRI NT #3 ,0$ ; PRI NT|3 ,T$ t PRlNTfi ,N$ 

srem 2U3 

60 3U GOTO 60 05 srem 205 

6035 PRINT»3,"*":CLOSE3 : rem 4b 

6040 POKEV+21 ,3 SGDTO270U ;rem 120 

6050 REM ***** LETTU R A DATI MAN.******* 

srem 244 

6055 POKEV+21 ,0 srem 63 
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6uoO FRI NT" {CLR} (RVSJ IATTURA "OFS"lGFF}" 

srem 252 

6065 INPUT#4 f O^ IFQS= M *"THENblG5srem 57 
6o7G INPOT#4,T$:INPUT#4,N$ : reni 23 

6075 PRINT" {GIU* }UVS} ORGANO I NTERESSATO 
(OFF) : w ;0$ srem a? 

6utiQ FKINT" {GIU 1 }{EVS} TIPO DI MANUTENZIO 
NE t OF F } s " ; T $ :rem 167 

6Qti5 PRINT" {GIU 1 }{RVSJ NOTE 10FF J : ” ; 

: rem 1 1 8 

6090 PRINT" i 2 GIU T } BATTI UN TASTO" 


srem 100 

6095 GETA3;IFAS= ,,,, THENb095 :iem 203 
61QU GOTObObO srem 204 
6105 CL0SE4 srem 1 1 8 
6110 POKEV+21 ,3:GOTO2700 ;rem ìlb 
10000 REM*** # *HEL.F************* srem 242 
10005 POKEV+n ,0 SPRINT" {CLR}" srera 3 


10010 PRINT" {GIU 1 ){RVS} 1<7>J{ 10 SPAZI 1 
[OFF t " : PR 1 NT" { RVS } [OFFJ {RVS} [BLK] 

[ 3 SPAZI )AS{ 3 SPAZI }{OFF}{RVS} 
1<7>] [OFF } " ; PRINT" {RVS} (UFF J {RVS} 
[BLKH 2 SPAZI }Jl 2 C}K{ 2 SPAZI } 
{OFF} {RVS} i<7>] {OFF?" srem 3 

10015 PRINT" { RVS } ( 10 SPAZI }{OFF}" 

:iem 108 

10020 PEUNT" {GIU 1 HRVS| i<7>} { 10 SPAZI} 
[OFF I" SPRINT" IRVSj {OFF} {RVS} [BLKJ 
[ 3 SPAZI JBOI 3 SPAZI} {OFFj {RVS} 
[<?>} {OFF}" SPRINT" {RVS} {OFF} {RVS} 
{ 3LK } { 2 SPAZI }Jt 2 CjKÌ 2 SPAZI} 
{OFF} {RVSi I < 7 > I {OFFj" srem l 

10025 PRI NT" {RVS f { 10 SPAZI} {OFF}" 

; r ero 109 


lUObO PQKEV+l t B: POKEV+3 , B : POKEV+Q , A; POKEV 
+ 2,C srem 229 

10085 GOTO 10045 :rem 49 

11000 PRINT" {HOME) l 2 GIU 1 } " TAB { 1 7 ) " { WHT } 
PERMETTE DI ARCHIVIARE" i : rem 220 
11003 PRINTTAB { 1 7) "I DATI RELATIVI ALLA" 

srem fai 

11010 FRINTTAiMl 7} "PROPRIA ASSICURAZIONE" 

srem bl 

11015 PRINTTAB O 7) "O DI MODIFICARLI" : RETU 
RN srem 114 

12000 PRI NT" {HOME } { 7 GIU 1 } "TAB ( 1 7 ) " {WHT } 
COMPILAZIONE TASSA" srem 45 

1 200 5 PRINTTAB H 7} "AUTOMOBILISTICA ED" 

srem 75 

12010 PR1NTTABO 7) "EVENTUALE MODIFICA " - RE 
TURN :rem B4 

13000 FRI NT" [ HOME j { 12 GIU 1 J "TAB ( 1 7 ) " 

{ WHT } PRO -MEMORIA DEI LAVORI" 

srem 68 

13005 PRINTTAB {17) "DA ESEGUIRE SULLA" :PRl 
NTTABl 17} "PROPRIA AUTO" s RETURN 

srem 196 

1 4000 PRI NT" { HOME } ( 17 GIU 1 } "TAB {1 7 ) " 

{ WHT } PERMETTE DI LEGGERE" srem 193 
14005 PRINTTAB (17) "LA DIRECTORY DEL DISCO 
11 : PRINTTAB {1 7 ) "ARCHIVIO" : RETURN 

srem 238 

20000 REM** "FI NE PROGRAMMA* ***** * 

srem 66 

20010 GUSUB2200 : PRI NT" [HOME} l 20 GIU'}"TA 


B { 1 9 ) " { BLK } i < * > J ( RVS } { ti SPAZI} 



(OFF) 

: rem 

113 

2001 5 

PRINTTAB O 9} "tBLKl [<*>J (RVS} 



t 7 SPAZI J{OFF} [<*>)" 

: rem 

77 

20020 

PRINTTAB tl 9} "M ÌKVS}{BLKH< 7 T> ] W 


[ <T> 1 {OFF}" 

: rem 

71 

2uU2b 

PRINTTAB (1 9) " M { RVS } t BLK } 




{ 2 SPAZI } J 1 3 C)KW {OFF}" 

: rem 

18 

20030 

IFPEEK (E) =T 2 6THENRU N 

srem 

57 

2003 b 

IFPEEK (E) “HI THEN2004 5 

srem 

62 

20040 

GOTQ2UQ 30 

srem 

36 


2UU 4 b POKEV+21 , G : PRINT" (CLR s END 

irem 25 


10030 PRINT" iGIU 1 } {RVS } [<7>] { 10 SPAZI} 
{OFF } " : PRINT" {RVS} 1UFF } {RVS } i BLK 1 
{ 3 SPAZI }MA{ 3 SPAZI )tOFF|{RVS} 

[ < 7> } tQFF}" SPRINT" (RVSJ {OFF} {RVS] 
{BLK } { 2 SPAZI }J{ 2 C } K [ 2 SPAZI} 
{OFFj {RVS} [<7>1 {OFFj* s rem 255 

10035 PRINT" {RVS |{ 10 SPAZI ) {OFF } B t A»1 1 0 S 

C * 1 34 : B = SO ; r em 43 

10036 PRINT" { 6 GIU 1 } { 2 DES } { RVS } ( < 7> ] M 

ENU {OFF} 11 srem 222 

1004 0 POKEV+21 , 7 : POKEV+4 f 50 ; POKEV+5 , 1 90 :F 
QKEV+41,0 srem 170 

10045 IFPEEK(E) =125THENB=B+5 S rem 105 

10U50 IFPEEK (£} » 1 26THENB=B- 5 : rem 104 

100 55 IFPEEK ( E ) - Il ì AND B- tiOTHENGG5UB2 20 0 : G 

OSUBllOOO srem 236 

1 00 bO IFPEEK tEJ -1 nAND8“120THENGGSUB2200: 

GO SU B 1 2000 srem 22 

I 00 t >5 IFPEEK lE ) -11 t AND B - 1 b 0 TH ENGOSU B 2 2 00 ; 

GOSUB13000 srem 32 

10070 IFPEEK (EJ -1 1 ÌANDB-1 95THENGOSUB2200; 
G05UB1 4000 srem 37 

10075 IFPEEK{E) =1 1 1 ANDB=230tHENGOSUB220U: 

RUN srem 160 

10076 I FB< tìOTHENB^tiO srem 1 37 

10U7 7 I FB> 230THENB = 230 srem 2 30 
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I lettori clic hanno proveto ed 
userà SPEEDSCRIPT, Il potente 
word processor che abbiano 
presentato nel ninnerò di no* 
venbre, si sa ranno resi conto di 
quanto eie noioso* ogni volte che 
lo si utilizza» dover rldefinire i 
valori di "default" (cioè i valori 
assegnati inizialmente) dei mar- 
gini» della lunghezze di pagina» 
tC€* Questo breve programma ri- 
solve al problema. In guanto con- 
sente di creare una o piè versio- 
ni "personalizzate" di SPEED- 
SCRIFT, salvabili su nastro o su 
disco* Funziona sia sul C64 ebe 
sol VIC con espansione da 8 
Kbyte. 

S e usate SPEEDSCRIPT per C64 o 
per VIC, su nastro o su disco, questo 
programma, che chiameremo “Adattato 
re™, può larvi risparmiare molto tempo. 
Esso permette di predefinire i colori di 
sfondo e testo, i margini destro, sinistro, 
superiore ed inferiore, la lunghezza della 
pagina, la spaziatura tra le righe e di sele- 
zionare il tipo di carta usata per la stampa 
(fogli singoli o tabulato}. Inoltre è possibi- 
le cambiare il valore di default dei codici 
di controllo per la stampa definibili dal* 
Putente, 

In pratica, potete creare delle versioni 
personalizzate di SPEEDSCRIPT con i 
valori scelti. L'Adattatore non migliora 
od espande SPEEDSCRIPT; vi consente 
solo di “insegnargli” a fare le cose a modo 
vostro. Se avete utilizzato SPEED 
SCRIPT abbastanza da sapere quali sono 
i valori di default più adatti al vostri scopi, 
allora siete pronti ad usare TAdattato 
re. 

Ad esempio, potreste voler stampare dei 
documenti con spaziatura singola e mar 
gini laterali IO e 70, usando fogli singoli. 
Potreste anche aver bisogno di inviare 
codici speciali alla stampante, per avere 
caratteri evidenziati, sottolineature, sim- 
boli spedali, ecc. SPEEDSCRIPT per- 
mette di assegnare i codici di controllo 
all'inizio del documento da stampare, ma 
questi codici vanno rideflnitl ogni volta 
che sì vuole usarli. 

Sarebbe anche possibile costruire dei file 


contenenti i comandi di formato, a cui 
aggiungere di volta in volta il testo da 
stampare, ma è senz’altro più semplice 
usare F Adattatore per creare e salvare 
le vostre versioni personalizzate di 
SPEEDSCRIPT. I comandi del word pro- 
cessor consentono comunque di ridefinire 
colori, margini, ecc. nel modo consueto; 
vengono cambiati solo 1 valori di default, 
cioè quelli che SPEEDSCRIPT considera 
"normali”, L’Adattatore non distrugge 
F originale, ma crea delie copie modifica- 
te. potrete, ad esempio, avere una versici 
ne di SPEEDSCRIPT per scrìvere le lette- 
re d'affari, un’altra per le lettere persona 
lt f un'altra ancora per trascrivere appunti 
e via di seguito. 


Come si usa l’Adattatore 
Speedscript 

Una premessa: per poter comprendere 
questo articolo ed usare correttamente 
r Adattatore SPEEDSCRIPT, è indi- 
spensabile fare riferimento alla docu- 
mentazione relativa al word processor, 
pubblicata nel numero di novembre. 
Vediamo ora come si usa l'Adattatore, 
Innanzitutto dovete digitare il program- 
ma 1 (il caricatore) e il programma 2 
(E Adattatore vero e proprio); quest’ulti- 
mo deve essere salvato col nome 
“ADATTATORE. S$\ in modo che 
venga caricato correttamente. Quando 
avete salvato i due programmi, uno do- 



SUPtRCOMMOOORC® 2/BS 69 


po l'altro su nastro (o su disco) caricate 
e fate girare il programma L, che prov- 
vede automaticamente a caricare e a 
far girare il programma 2 , L'Adattatore 
vi chiede quindi di inserire nel registra- 
tore fo nel drive) il nastro (o il disco) 
contenente SPEEDSCRIPT, doman- 
dandovi con quale nome lo deve cerca- 
re. Inserite il nome e premete RE- 
TURN, selezionando poi da quale peri- 
ferica deve avvenire il caricamento. Al 
termine della lettura compare lo scher- 
mo di selezione colori, che permette di 
scegliere, usando i tasti FI e F3, II colo- 
re dello sfondo e quello del testo, adat 
tandolì al vostri gusti ed alle caratteristi- 
che della vostra TV o monitor; una vol- 
ta trovata la combinazione migliore me- 
morizzatela premendo RETURN. Con 
SPEEDSCRIPT potrete sempre selezio- 
nare altri colori, usando ì comandi 
CTRL+B e CTRL+L, ma I colori dì de- 
fluii, cioè quelli iniziali ai quali si torna 
ogni volta che sì cancella il testo memo- 
rizzato ("CLEAR ALL TEXT"), reste- 
ranno quelli che decidete ora, Una com- 
binazione interessante (e riposante per 
gli occhi) è quella che simula un monitor 
a fosfori verdi: testo verde e sfondo ne- 
ro (o grigio scuro). 

Cambiamento dei valori di 
default 

E>opo aver selezionato i colori vi trove- 
rete di fronte un nuovo menu: II pro- 
gramma vi chiede di inserire una serie 
di numeri, che saranno l nuovi valori di 
default. Se scegliete di non cambiare un 
valore, premete semplicemente RE- 
TURN e il default originale, che è quello 
visualizzato, rimarrà inalterato. Vi dia- 
mo ora alcune indicazioni utili per una 
scelta corretta del valori. 

* Margine sinistro: determina il valore 
di default della va ria bilie [I], che 
SPEEDSCRIPT permette di riassegna- 
re premendo prima CTRL+E e poi 1, 
seguito da) valore numerico. N margine 
sinistro è la distanza, cioè 11 numero di 
spazi, che separa il bordo sinlslro del 
foglio (o meglio la posizione più a sini- 
stra che il carrello di stampa può occu- 
pare) dall'inizio del testo. Deve valere 
almeno 1. 

* Margine destro: determina il valore di 
default della variabile fr], che indica la 
distanza tra la fine del testo e il bordo 
destro del foglio, sottratta dal numero 
80. In pratica [r] deve essere maggiore 
di [I], e la loro differenza dà il numero 
massimo di caratteri di cui può essere 
composta una riga. 

'Lunghezza della pagina: non esiste una 
funzione corrispondente in SPEED- 
SCRIPT. È il numero di righe che riem- 
pie una pagina; esso viene posto a 66, 
in quanto la lunghezza dì una pagina di 
tabulato standard è di 11 pollici e la 
maggior parte delle stampanti stampa- 
no 6 righe per pollice. Se usate fogli 
singoli, moltiplicate per 6 la loro altezza 
in pollici per ottenere il valore corretto 
di questa variabile. Esistono inoltre 


stampanti {o interfacce) che consentono 
una “densità" di 8 righe per pollice, nel 
qual caso, usando tabulati standard, la 
lunghezza di pagina diviene 88. 

* Margine superiore: determina il valore 
di default della variabile [t] t che indica 
il numero di righe vuote lasciate all'Ini- 
zio di ogni pagina; dovrebbe valere al- 
meno 3, 

* Margine inferiore: determina il valore 
di default della variabile jb], che indica 
ri numero di righe vuote lasciate alla 
fine di ogni pagina, sottratto dalla lun- 
ghezza della pagina. In pratica [b] deve 
essere maggiore di [tj, e la loro differen- 
za dà il numero di righe di testo conte- 
nute in una pagina; [b] dovrebbe valere 
al massimo quanto la lunghezza della 
pagina meno 4 {cioè 62 nel caso dei 
tabultati standard). 

" Spaziatura: determina il valore di de- 
fault della variabile [s] Usate 1 per otte 
nere la spaziatura singola tra le righe, 
2 per la doppia e cosi via. 

" Selezione del tipo di carta: ha la stessa 
funzione del comando [w]. Il valore 0 
indica a SPEEDSCRIPT di attendere 
che voi premiate RETURN alla fine di 
ogni pagina, prima di iniziare la stampa 
della successiva; ciò permette di usare 
fogli singoli. Il valore 1 provoca una 
stampa continua, utile quando si usano 
tabulati; in questo caso, comunque, po- 
tete sempre usare il comando [w]. 

In questa sezione del programma è an- 
che possibile assegnare i valori di de- 
fault dei codici definibili dall'utente. In 
genere non è necessario cambiare I va- 
lori dei primi quattro, che contengono 
già alcuni codici ASCII di uso frequente. 
Cercate comunque di standardizzare il 
piu possibile l'uso dei codici definibili, 
specialmente se vi capita di scambiare 
con amici i file di testo prodotti con 
SPEEDSCRIPT. 

Dopo che avete finito di selezionare 
questi valori il programma vi chiede se 
volete continuare o ricominciare dacca 
po. Controllate i valori: se c'è qualcosa 
di sbagliato, premete R e il programma 
ri com incera dall 'inizio. Altrimenti pre- 
mete C per continuare, digitate il nome 
che volete dare alla vostra versione mo- 
dificata di SPEEDSCRIPT e premete 
RETURN. A questo punto l'Adattatore 
resetta i puntatori BASIC e salva 1] nuo- 
vo SPEEDSCRIPT. 

Assicuratevi di dare ad ogni versione 
un nome diverso, per non generare con- 
fusione (su disco l'Adattatore SPEED- 
SCRIPT non consente di usare J 'opzio- 
ne SA VE & replace, per cui è impossibi- 
le distruggere una versione precedente, 
salvandone una nuova). Ricordatevi 
che, qualsiasi versione di SPEED- 
SCRIPT stiate usando, e sempre possi- 
bile cambiare i valori di default per mez- 
zo dei comandi CTRL+£. 

Dopo aver salvato la versione modifica- 
ta il programma ne comanda il RUN. 
Coloro che usano un disk drive potran- 
no controllare l’ eventuale errore pre- 
mendo prima CTRL e t, poi RETURN; 
con CTRL+4 potranno poi vedere la 


directory del disco. Se qualcosa è anda- 
to storto durante II salvataggio su na- 
stro o su disco del nuovo SPEED 
SCRIPT, premete RUN/STOP+RE 
STORE e digitate SA VE “nome**, I, se 
usate il registratore, oppure SAVE “no- 
me", 8, se usate il disk drive. E consi- 
gliabile spegnere e riaccendere il com 
puter prima di usarlo per altri program 
mi. 

Conte funziona 
l'Adattatore Speedacrlpt 

L'Adattatore rappresenta un esempio 
di come sia possibile avere in memoria 
contemporaneamente due programmi, 
usando uno di essi per modificare l'al- 
tro. 

Ma prima analizziamo brevemente il ca- 
ricatore (programma I). La linea S de 
termina su quale computer (VIC o C64) 
sta girando il programma, usando la 
routine SCREEN del sistema operativo 
(Remai). Ciò che viene testato è il nu- 
mero di colonne del video, che sono 22 
per il VIC e 40 per 11 C64. Conforme- 
mente al tipo di computer, i puntatori 
che indicano l'inizio del BASIC vengono 
modificati. In modo che l’Adattatore sia 
caricato in una zona di memoria succes- 
siva a quella in cui risiede normalmente 
SPEEDSCRIPT (nel VIC, ad esempio, 
SPEEDSCRIPT occupa l’area 4609 
9342. mentre l'Adattatore viene caricato 
a partire da 9984). Il caricatore stampa 
sullo schermo i comandi necessari, poi 
riempie II buffer di tastiera (una piccola 
area di memoria che immagazzina tem- 
poraneamente i caratteri battuti da ta- 
stiera) con un carattere HOME, due RE- 
TURN, un punto esclamativo ed il codi- 
ce del comando LO AD & RUN, cioè il 
carattere che da tastiera viene generato 
premendo SHIFT+RUN/STOP. Il pun- 
to esclamativo fa in modo che il compu- 
ter Ignori il comando LO AD ed esegua 
solo il RUN. Questo è 11 modo in cui 11 
Programma 1 carica e fa girare II pro- 
gramma 2. 

Vediamo ora l'Adattatore, Anch'esso 
determina innanzitutto su quale compu- 
ter sta girando ed assegna di conse- 
guenza numerose variabili. La linea 50 
carica SPEEDSCRIPT nella sua usuale 
area di memoria tramite un LQAD con 
indirizzo secondario 1. SPEEDSCRIPT 
sì trova adesso fuori dalla memoria BA- 
SIC, per cui il computer lo ignora, 
Successivomente il programma control- 
la qual è la versione di SPEEDSCRIPT 
caricata e stampa un messaggio, comu- 
nicandola (lìnee 56-64), Le linee 66-86 
gestiscono la selezione dei colori di de- 
fault, e le istruzioni INPUT delle linee 
88-122 servono a poter cambiare i valo- 
ri di de fault del formato dì stampa. 

Per poter funzionare con tutte le versio- 
ni di SPEEDSCRIPT il programma 2 
possiede delle “tabelle", contenenti gli 
indirizzi di memoria del colore dello 
sfondo (BL), del colore del testo (LL> e 
dell’Inizio della “tavola di definizione", 
in cui tutte le versioni di SPEEDSCRIPT 
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memorizzano i valori di default delle va 
ria bill Le tabelle si trovano nelle linee 
128-132 e la linea 134 esegue le POKE 
nelle opportune locazioni memorizzan- 
do i valori di default da voi seleziona 
tl 

La linea 150 determina i valori esatti 
da assegnare mediante POKE at punta* 
tori del BASIC prima di salvare la ver* 
sione modificata di SPEEDSCRIPT. In- 


fatti, quando viene eseguito il comando 
SAVE del BASIC l'indirizzo del primo 
byte del blocco di memoria da salvare 
è contenuto nelle locazioni 43 e 44 (nel 
solito formato byte aito / byte basso! . 
mentre le locazioni 45 e 46 contengono 
l'indirizzo dell'ultimo byte da salvare 
più uno. 

Infine le linee 160-168 stampano sullo 
schermo le istruzioni POKE di cui sopra 


ed il comando SAVE, riempiendo 11 buf- 
fer di tastiera con un HOME, tre RE- 
TURN, un punto esclamativo ed il codi- 
ce del LO AD & RUN (la stessa proce- 
dura illustrata precedentemente). La 
copia personalizzata di SPEEDSCRIPT 
viene quindi salvata e fatta girare; essa 
sostituisce l’Adattatore, che a questo 
punto sparisce (in realtà è ancora me- 
morizzato, ma non è più utilizzabile). 


Caricatore Speedscript 


2 DN = 1 :PRINT" (CLR] CARICATORE : * : FRI NT" 
{GIU* } {RVS}H {OFF) ASTRO 0 ( RVS }D (OFF } 15 



CO?" 

: rem 

3 4 

4 

GETZ ? : I F Z$ = " D " THENDN = 8 : GOTO 8 

: rem 

1 27 

6 

I F 25 < > " N" TH EN 4 

: rem 

778 


8 SY56551 7: IFPEEK (781 ) - 2 2THENPR I NT W (CLRjP 
OKE44 , 39:PQKE256*39, 0 :NEW" : GOTO 12 

: rem 1 1 5 

1 0 I FFEEK (78 1 ) *= 4 QTHENPRINT" (CLR ) P0KE4 4 , 4 8 

:FOKE256*48 f 0:NEW" :rem 733 

7 2 PRI NT" f 2 GIU 1 ] LO AD " CHR$ (34) "AD ATT ATOR 
E.SS <t CHR${34) "/DN : rem 23 5 

7 4 FORI -631 T0635 :READN: POKEI , N : NEXT; POKE 7 
98 i 5 :rem 98 

16 DATAI 9, 13,13,33,131 ;rom 94 


Adattatore Speedscript 

1 IFFL-7THEN52 : rem 86 

7 0 GOTO 7 6 : rem 1 

12 PRI NT" (CLR} h X$ rt { RVS} ADA { 2 T)ATGRE SP 
( 2 E ) DSC RI PT " : rem 72 

14 RETURN :rem 69 

1 6 LC ■ 0 : BC = 7 ; CS = " V1C " : PO- 1 29 ; Pi - 46 74 : P2 = 1 
32:F3“145: SYS6551 7 :rcm 276 

1 8 IFPEEK (787) = 40THENC$="C64 " : X £ 1 : Pi =206 2 
; P2» T 03 : P3 = T 06 :rom 211 

20 DIMV (2 0) : FRI I4TCHRS ( 1 4 J : PRI NTCHR$ { 8 ) :IF 
XTHENXS=" { 9 SPAZI}" ;rem 97 

22 GOSUBl 2 ; rem 71 

24 PRI NTX8 n [ 2 GIU ' }L* ADATTATORE NON DI-" 

;rem B6 

26 PRINTX?" STRUGGE LA COPIA ORI-" 


treni 230 

28 PRINTX?" GINALE DI SPf 2 Ef OSGRIFT ," 

:rem 23 2 


30 

PRINTXS" {GIU 1 ] INSERISCI IL NASTRO 

O" 



itera 

7 65 

32 

PRINTX$" IL DISCO CONTENENTE" 

:rem 

772 

34 

PR I NTX$"SP { 2 EjDSCRIPT PER 

(RVS] 1 

"C$ 11 


(OFF} . 11 

: rem 

222 

36 

PR I NTX$ " 1 G I U * ] D I G I T A IL NOME 

DEL" 




: rem 

7 46 

38 

FRI NTX8" FILE. 11 

: rem 

6 

40 

PRI NTX$ ; : INPUT" NOME" ; NFS 

: rem 

80 

42 

PRINTX$" (GIU* }[ RVS }N {OFF} ASTRO 0 

(RVS} 


D (OFFUSCO?" 

; rem 

227 


44 GET 2 $ : I F Z$ < >" N“ ANDZ $ < > “ D " THEN 4 4 

srem 3 

4 6 I F 2 $ = 11 N H THEND$ = " {RVS J NASTRO {OFF } " : DN = 1 

: rem 7 9 

48 I F Z $ £ " D 11 TH END $ = " {RVS JDISCO ( OFF } " : DN- 8 

Itera 173 


50 FL- 1 : LO AD NFS , DN , 1 : rem 146 

52 I FXTHENLC - 1 1 : BC “ 1 2 : POKE53 2 80, BC: POKE53 
281 , BC srem 67 

54 POKE64 6 , LC : I PX”QTHENPOKE368 79 * 25 

itera 731 

56 PE-PEEK ( PI ) : IFFE~P2ORPE=P0THENVS = ,, Vi 11 ; 

V= 7 : 1 FP 1 - 20 62THENPOKE57 55 r 7 33 :rem 59 
58 I FPE “P3THENV$ = " V2 11 : V= 2 :rem 2 

60 lFPEOPOANDPEOP2ANDPEOP3TfiENPRINT"E 
RRORE DI LETTURA. FORI =lTO30 00: NEXTsR 
UN : rem 9 4 

62 IFPÌ-4674THENV-3 :rem 727 

64 PRTNTX8" | GIU 1 H RVS} "C5" SPf 2 EÌDSCRI 
PT { RVS ]" V$: FORI = 1 T03000 : NEXTI SPRINT" 
TCLR}" ue m 117 

6 6 PR T NT" { HOME } " " f RVS ] ADA ( 2 T } A TORE S 
Pf 2 E } DSC R I PT f QF F } " rem 9 9 

68 PRINTX$" (GIU 1 } (RVS] FI {OFF] CAMBIA LO S 
FONDO" :rem 232 

70 PRINTXS" {GIU* HrvS}F 3{OFF} CAMBIA IL T 
ESTG" :rem 763 

72 PRI NTX$" {GIU* }{ RVS] RETURN {OFF} MEMORI Z 
ZA I" :rem 82 

74 PRINTX$ 11 COLORI DEFAULT . " :rem 7 79 

76 GETZ$ : IF2$=CHR5 (1 3 3) THENBC = BC + 1 AND 15:1 
78 I F2$ *CHR$ ( ! 3 3 ) ANDX=0THENBP* (SCANDI 5} *7 
6+ ( BCAND 7) + B : POKE36 87 9 , BP : rem 7 26 

80 IFZ$«CHR$ ( 1 3 3 ) THENFOR I = OTO 2 0 0 : NEXT; GQT 
076 :rem 245 

82 IFZ$«CHR$ (1 34j THENLC=LC + 1 ANDl 5: IFX-0TH 
ENLC-LC AND 7 :rem 223 
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84 IFZS=CHR$ ( 1 34 ) THENPOKE64 6 , LC : GOTO 6 6 

srerri 56 

86 IFZSOCHRS (13) THEN76 :rom 71 

88 GOStiBl 2 srem 83 

90 PRINTX5"!. DEFRULT ORIGINALI" : rem 34 
92 P R 1 NTXS " SONO QUELLI ELENCATI ”ì rem 8 
94 PRINTXS "QU 1 SOTTO: - :rero 124 

96 PRINTXS; S INPUT n MARGINE SINISTRO 

( 2 SPAZI ] 5 { 3 SIN)' 1 ; V LO) :rern 93 
98 FRI NTXS J : INPUT"MARGI NE DESTRO 

{ 4 SPAZI ) 7 5 { 4 SIN)"fV(l) :rent 138 
100 PRINTXS; : INPUT" LUNGHEZZA PAGINA 

{ 2 SPAZ I } 66 f 4 SIN} " ; V{2 ) :rem 63 
102 PRINTXS; ! INPUT"MARG INE SUP. 

{ 6 SPAZI } 5 { 3 SIN} " ; V(3) :ram 47 

104 PRINTXS; : INPUT"MARGINE INF. 

{ 6 SPAZI } 5 8 [ 4 S I N i " ; V 1 4 ) :rem 236 
106 PRINTXS; i INPUT"SPAZIATURA{ 8 SPAZI} 2 
{ 3 SIN}" ; V(5) srem 13 

1 08 PRINTXS; : INPUT" TABULATO: N=0/S=1 

{ 2 SPAZI } 1 [ 3 SIN }" ; V (6) srem 76 

110 FORICI T09 : READ JS : K = 1 + 6 s rem 60 

112 PRINTXS" [ CTRL ] £ "I" -[ 4 SPAZI }"J$;: 

INPUT" [ 4 SIN}";V(K) :rem 76 

114 NEXTI srem 30 

116 DATA27 ,14, 15, 18,00,00, 00, 00>00 

:rem 143 

118 PRINTXS" {RVS}C {OFF JONTINUA O {RVS}R 
{OF F } ICOM I NC I A" :cem 189 

120 GETZS: IF2$ = "R ir THENRUN :rem 47 


122 IFZ$< >"C" THEN1 20 : rem 101 

124 GOSUB1 2 :rem 122 

126 PRINTXS 1 * (GIU 1 }NQME DEL NUOVO" : PRINTXS 
; :INPUT"FILE";NF$ :rem 177 

1 28 IFV-1 THENBL= 240 8 : LL = 2 4 1 7 : DT- 520 0 

;ret« 105 

130 IFV= i 2THENBL a 24T 1 : LL=2425:DT=527 5 

s rem 104 

132 I F V- 3THENBL* 4 9 7 9 : LL= 50 31 :DT=7750 

•rem 124 

134 POKEB L f BC : PQKELL , LC : FORI - QTQ 1 5 : PO K EDT 
+X,V(lj sNEXTI :rem 245 

136 1FDN- 1 THENPRINTXS "{GIU* H RVS } PREM I I 
L TASTO STOP " i PRINTXS " { RVS } DEL 

TsPAZÌ 7 REGI STRATORE " : rem 212 

138 PRINTXS" r 2 GIU r J INSERISCI IL "D$ 

:rem 49 

140 PRINTXS "DOVE VUOI REGISTRARE" 

:rem 75 

142 PRINTXS "£5P £ 2 EjDSCRJPT MODIFICATO" 

:retn 137 

144 PRINTXS "E PREMI ( RVS } RETURN {OFF } . " 

:rem 90 

146 GETZS : I F Z $ < >CHR $ (13) AND ZS < >CHRS (141 }T 



HEN 146 

: r em 

237 

148 

I FX = 0ANDVS ■ " V2" THENV= 4 


61 

150 

ONVGOSUB1 52, 1 54,1 56, 1 58: GOTO 1 60 




:rem 

3 

152 

US = 8 : LE* 1 6 2 : HE- 2 7 : RETU RN 

:rem 

208 

154 

HS- 8 : LE= 0 : HE" 40 : RETURN 

; rem 

100 

156 

HS* 1 8 : LE= 1 0 8 : HE= 3 7 : RETURN 

: rem 

6 

158 

HS=1 8: LE=8:HE=38: RETURN 

: rem 

168 

160 

PRINT" {CLR } P04 3 , 1 :P044 ( "HS" 

: rem 

1 36 

162 

PRINT" { 2 GIU* } PO 4 5 , 11 LE ** ; PO 4 6 , " HE" 




: r em 

179 

164 

PRINT" { 2 GIU' }SAVE"CHR$ (34) NF$CHR$ (3 


4 ) " , "ON 

; rem 

233 

166 

DATA 19,13,13,13,33,1 31 

: rem 

36 

168 

POKE1 98 ,6:FORI-631 TO 6 3 6 : RE ADN : PO K E I , N 


: NEXT 

: rem 

1 58 
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SYS Sound per C64 



di M. $teed 

trad e adatt, 

dì F. Sarda* 


Per ottenere «noni da un C64 è 
necessario l'uso di numerose 
istrnilonl POKE ani registri del 
chip $tD. CIÒ può essere compii* 
ceto e scoraggiante, specialmen- 
te per I programmatori alle pri- 
me armi. "SVS Sound" è una rou- 
tine In linguaggio macchina che 
può aiutarvi a creare rumori, 
•noni e musica nei vostri pro- 
grammi, senza usare tutte quelle 
scomode POKE. 


I l CG4 possiede un meraviglioso circui- 
to integrato, che è in grado di sintetiz- 
zare una varietà incredibile di suoni. 
Tuttavia, se volete far “cantare" questo 
chip, che si chiama 5ID, dovete calcola 
re e poi memorizzare (tramite istruzioni 
POKE) i valori appropriati nei suoi 25 
registri, che corrispondono alle I acazio 
ni 54272-54296. Chi di voi ha provato 
a creare suoni nei suoi programmi BA- 
SIC si sarà senz'altro reso conto di 
quanto eia sia laborioso. Con "SYS 
Sound” è invece possibile ottenere ogni 
tipo di suono per mezzo di un’unica 
istruzione SYS, senza usare neanche 
una POKE. 

1 dum programmi 

l listati che pubblichiamo sono due. Il 
primo è il programma che memorizza 
la routine in linguaggio macchina [nel- 
l'area RAM che inizia dalla locazione 
49152, senza quindi occupare la memo- 
ria BASIC). Digitando questo program- 
ma fate molta attenzione ai valori nu- 
merici contenuti nelle istruzioni DATA: 
anche una sola cifra errata compromet- 
terebbe il funzionamento della ruotine. 
Salvate su nastro o su disco il program- 
ma PRIMA di farlo girare: infatti, dopo 
aver eseguito il suo compito esso si 
autodistrugge tramite un comando 
NEW. Il secondo programma è invece 
un semplice esempio dì come si possa 
creare musica usando SYS Sound. 


Come ottenere > suoni 

Dopo aver fatto girare il programma 1 
la routine si trova in memoria e vi rima- 
ne finché il computer non viene spento. 
A questo punto per utilizzare SYS 
Sound dovete semplicemente digitare 
SYS 49152 seguito da alcuni parame- 
tri, tra l molti possibili, che vedremo tra 
poco; tali parametri devono essere se- 
parati da virgole. E senz'altro preferìbi- 
le definire il numero 49152 come varia- 
bile (ad esempio 5=49152). 
Naturalmenle, potete utilizzare SYS 
Sound aN’interno dei vostri programmi 
BASIC. 

Vediamo ora quali sono ì parametri e 
cosa significano. 

• Vx, dove x è il numero delia voce 
ysata per generare la nota (1, 2 o 3). 
E possibile usare contemporaneamente 
tutte e tre le voci (vedi programma 2). 

• A x, dove x è il valore dì Aitack della 
nota (0-15), È il tempo impiegato dai 
suono per raggiungere il volume massi- 
mo: più grande è il numero, maggiore 
è il tempo. 


• Dx, dove x è il valore di Decay della 
nota (0-15). È il tempo impiegato dal 
suono per abbassarsi e raggiungere il 
volume di Sustain: anche qui il numero 
è proporzionale al tempo. 

• $x, dove x è il livello di Sustain della 
nota (01 5). Il suono rimane a questo 
volume fino alPìnìzio del Relense. 

• Kx, dove x è il valore di Release 
della nota (0-15). È il tempo impiegato 
dai suono per passare dal volume di 
Sustain al silenzio: ancora una volta il 
numero è proporzionale al tempo. 

• Wl[x], dove l è una lettera che rap- 
presenta la forma d’onda usata per ge- 
nerare il suono. Essa può essere N (noi- 
se = rumore), S (sawtooth = a dente di 
sega), T (triangle = triangolare) oppure 
P (pulso ■ rettangolare). Se scegliete 
quest 'ultima forma d’onda, dovete an- 
che aggiungere x come valore di am 
piezza deN’impulso (0-4095); ad esem- 
pio, per ottenere un'onda quadra si de- 
ve usare WP2048. 

• Fx, dove x é il valore che determina 
la frequenza della nota (0-65535). 
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• Lx t dove x è il volume della nota 
(0-15). Tale volume è comune a tutte 
le tre voci. 

• C serve a “pulire* il chip sonoro, az- 
zerando tutti i suoi registri Equivale al 
seguente ciclo BASIC: 

105 - 54272: FORI - 0TO24: POKES 
+ 10: NEXT 

Una volta che determinati parametri so- 
no stati assegnati non è necessario reim- 
postarli ogni volta che la routine viene 
chiamata. Ad esempio, se tutti gli effetti 
sonori vengono realizzati usando la vo- 


ce n 1, a volume 15, con forma d'onda 
a dente di sega, attack 0, decay 9, gu- 
stai n e retea se 0 3 allora tutte queste 
regolazioni possono essere effettuate al- 
T inizio del programma tramite Tìstruzio 
ne 

10 $=49152:$Y5 S,C,Vl,L15 f WS,D9 

Essendo tutti i parametri mizìalLzzatì a 
zero, potete notare che non è stato ne- 
cessario assegnare A t S e R A questo 
punto per suonare una nota sarà suffi- 
ciente l'istruzione 

20 SYS S.F5000 


Al posto dei valori numerici è possibile 
usare variabili od anche espressioni, co- 
me SYS S,FJ oppure SYS S P F34*256 
oppure ancora SYS S,L74Z. Inoltre, se 
un parametro viene impostato più di 
una volta, solo l'ultimo valore viene 
considerato; ad esempio, SYS 
S,WS,WT.A0,A6 è equivalente a SYS 
S,WT,A6. 

Se volete chiarirvi ulteriormente le idee, 
vi consigliamo di analizzare il program- 
ma 2, In seguito potrete impratichirvi 
nel l'uso di SYS Sound, sperimentando 
i diversi parametri e facendo variare ì 
loro valori. 


SYS SOUND 

ioti DATAiz, 121 » 0,206, J,7b, 241 , l 92 ,2Ul 

;rero 52 

110 DATA44, 2*0, 3,76,67,193,32,113,0 

:rem 224 

1 iU DATAI 62 ,8 ,2*1 , 7o , 1 93, z40, b , 202 , 1 b 

: r eni bb 

1 So DATALO, 7b,b7,1 93, 1 Jb, 1 0, 1 70, 1 

: lem 4b 

140 DATA83,19t>, 133,251 ,169,66,193,133 

trero 96 

150 DATA 2 3 2,32,50,1 92 , 7 b , U , 1 *2 , 1 08 , 2S1 

trero 121 

lbli DATACI, 32,55,193,201 ,1,144,4,201 

: rem 209 

1 ?U DATA*, 144, 3, 76, 72, 193, 202,142,114 

treni 7G 

USO DATAI 95,96,32,55,195,1 0, 10, 10, T0 

: r ero 15 

1 90 DATA T 4 1 ,123,193,173,120,193,41,15 

treni 71 

200 DATAI 3 , 1 23, 1 9 j , 1 4 1 ,120,193,96,32 

: cero 1 7 

21 0 DATA 5 b ,193, 1 41 , 1 23,1 *3, 1 73, 1 20, 1 93 

trem 124 

220 DATA 4 1 , 240,13,125,193, 1*1, 120,195 

treni bb 

230 DATA96, 32, 55, 193, 10, IO, 10,10,1*1 

: zero 4 

240 DATAI 25 , 193 , 1 73 , l 21 , 1 93 , 41 , 1 5, 1 3 

: rem 1 8 

2bO DATAI 23 ,193,141,121 ,19i,9b,3*,55 

trem 29 

2o0 DATAI 93 ,141 ,125,195,173,121,193 

trem 23b 

270 DATA 4 I , 240 , 1 4 , 1 2 3 , 1 9 3 , W 1 , 1 2 ! , 1 93 

; rem 04 

2b0 DATA96 , j 2 , 1 l 5 , 0 , 1 62 , 3 ,X21 , 1 0 3 , 1 93 

trem 65 

29U DATA24U, 6,202, 10,246,76,67,193,224 

treni 137 

300 Data! , 24 0, b , 32 , Il 5 , 0, 7o, 1 96, I 92 

txem 223 

310 DATA32, *4, 1 95, 1 92 , 1 b , 1 44 , 3 , 7t> , 72 

treni 29 

320 DATAI 93, 1 42 , 1 1 / , 1 93 , l 40 , 1 1 8 , 1 93 

; rem z37 

330 DATAI t>2,l ,169,107,195,141 ,119,195 

treni 63 

340 DÀT&9& ,3 2, 4*, 193, 142,1 15,193,140 

treni 50 

350 DATAI 16, 1 93, 9b, 32, 55,193, 141, 122 

; z ero 33 

3b0 DATAI 93, 9o, 169,0,162,24, 157,0,212 

: rem 6 0 


370 DATA202,! b,25U, 1b9, U, 1 41 , 11 5, 193 

:rem 20 

3bU DATAI* 1 ,116, 193, 76, 115, 0,173, 115 

trem 26 

390 DATA 1 93, 2Ub, 5,1 73, 1 1 6 f 1 93 , 240, 3? 

trem 36 

40u DATAI 74,1 14,195,109,1 M , 193,1 53 

trem 23b 

410 UATA251 ,169,212, 133,252,1 bU, b, I tìb 

treni 7 5 

4 20 DATA 115,195, 1 4 5 , 251 , 1 3b , 1 6 , 2 4fì , 1 60 

trem 128 

430 DATA4, 173,1 19,193,9,1 ,145,251 , 173 

trem 79 

44U DATAI 22, 1 93,1 41 , 2 4 , 2 ì 2 , 96 , 1 o 5 , 1 22 

trem 73 

* 30 D ATA ^0 8 ,2,l9b,l25,l 96,122,76,121 

trem 35 

4 bU DATAO, 52, 166, 173,32,24 7,163, 1 6t> 

treni 2*0 

4 fQ DATA20, 1 6 4,21 , 96 , 3* , 4 4 , 1 y J , ì 52, ^0b 

treni 126 

4 80 DATAI! ,224, i 6 , 1 76 , 7 , 1 3b , 96 , 1 62 , 11 

srem 62 

490 DaTA / b, 56, 1 64, 1 6z , 1 4 , 2Uu ,249, 66 

t r ero 5 

500 DATAbb ,68, b 5, 6z, «7 , 70, 76, o7 , 35 , 1 92 

: rem 1 57 

51 0 DAiA/2,1 92,9 4, 1 9z , 11 2 , 1 92 , 1 j4 , 1 92 

: rem b6 

520 DATAI 52, I 92 ,20 3,1 9z, 21 3,192,220 

: rem 226 

530 DATAI 92,76,60*83,84, 12b, 64, 32, 16 

;rem 45 

54U DATA0 ,7, 14,0, 0,0,0, U, 0,0, 0,0,0 

; rem 1 1 1 

550 FRI NT" {CLKj [GIU* J ATTENDI PREGO . " 

trem 31 

5o0 FORI = 4 y 1 52T049531 t READJ : POKEI , J ; K = K+J 
SPRINT" fHOME) M SPC (5b) KtNEXT trem 132 

5 70 IFKO 4 462 1THENPKIHT 11 ERRORE NELLE iSTR 

UZIONI DATA" : END treni 1 24 

560 FRI NT” 1CLK } [ 3 GIU 1 ìSYó SOUND" SPCCJl) 
"le 9 T> J " : NEW trem 122 


Esempio SYS SOUND 

100 REM *** ESEMPIO SYS SOUND *** 

: rem 1 1 

1 1 0 REM trem 1 1 6 

120 REM LE PARENTESI NELLE LINEE 180, 

Siero 65 

130 REM ! 90 E *00 SI POSSONO OMETTERE - 

treni 73 

1 4 lì rem : rem 121 
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1 50 

S = 49 1 52: SY3S ,C ,L1 5 : T=T1 srem 

1 06 

570 

DATA 2,1061 4,321 3,160 7 

2 rem 

3 

1 bO 

KEADD : IFD-0THENSYSS ,C ; END srem 

1 1 4 

580 

DATA2, 2145, 1607, 1351 

: rem 

209 

1 70 

READ Fi ,F2,F3 srem 

1 1 6 

59u 

DAT A 2 ,10 7^,536,0 

: rem 

6 

ìbO 

5YSS , Vi f F 1F1) ,WS,AG,D9,SG,R0srem 

bl 

600 

DATAI ,6430,1 bU 7 ,0 

: rem 

48 

190 

SY3S,V2,F (F2) , WS,A2,D4,S2,R2srem 

85 

610 

DATAI ,6430,1 607 ,0 

: rem 

49 

200 

SYSS,V3,F (F3ì ,tfT,Al ,D2,SlG,Rl 0 


6/U 

DATA2 ,64 30, 1 bU7,G 

: rem 

51 


: rem 

171 

630 

DATA2 , b4 30 , 1 607,803 

; rem 

159 

21 U 

T=T+1 0*D : REM DURATA SUONO : rem 

229 

640 

DATA 2 ,6430,3*1 5, 1607 

srem 

206 

220 

1FT>TITHEN22G : rem 

21 

650 

DATA2 ,721 7,3215,1432 

; rem 

209 

230 

GOTO 1 6 U srem 

101 

660 

DATA 2 ,81 01 ,4050,2408 

irem 

205 

24u 

REM : rem 

1 /2 

670 

DATA2, 8563, 5728,321 5 

; rem 

230 

300 

DATAI, 6430,3215,1607 ; rem 

20 ì 

680 

DATAI ,9094,4547,2408 

: rem 

229 

310 

DaTA 2, 721 7 , 321 5,1432 :rem 

202 

690 

DATA) , 9634,4817,2408 

; rem 

230 

320 

DATA2, bl ni, 4050, 2408 srem 

1 9tì 

700 

DATA2,1 2b6U, 8101 ,2864 

srem 

6 

330 

DATA 2 , 8 b 8 3 , 57 2 b , 3 2 1 5 ;rem 

223 

710 

DATA2,b430, 0, 0 

srem 

149 

340 

DATA) ,9094,4547,2406 ;rem 

222 

7 20 

DATA2, \ 081 4, 61 01 ,2 864 

srem 

5 

3 30 

DATA) ,9634,4817,240» : rem 

223 

730 

DATA2, 9634 ,6430,2145 

srem 

21 7 

360 

DATA 2 1 1 2860 , bl 01 ,2564 :rem 

8 

740 

DATA2,1 072,1607,1351 

: rem 

205 

370 

DAT A 2 ,52)5,0,0 :rem 

1 49 

7 50 

DATA2 ,8383,5407,1607 

srem 

226 

3bO 

DATA/ , 1081 4 , tìl 01 ,/8b4 :rem 

7 

760 

DATA 2 ,1607,1351 , 1 607 

srem 

211 

390 

DATa 2 ,9634, t>430, 2145 :rem 

219 

770 

DATA/ ,21 45, 1072,536 

;rem 

162 

40U 

DATA2, 21 43,1 607,1 351 srem 

200 

780 

DATA2 ,8583,2703, 1607 

iresti 

225 

4 1 0 

DATA2, 6563, 5407, 1 607 srem 

219 

790 

DATA 2 , 81 U 1 ,5728, -*408 

srem 

222 

4 20 

DATA2,1 607,1 351 , 1 607 srem 

204 

800 

DATA/, 7647,6430, 2703 

srem 

217 

430 

DATA2,21 45,1 072,536 irem 

155 

bl 0 

DATA2, 7 2 17,3608,26 64 

: rem 

223 

4 40 

DATA2 , 6553 ,2703,1 607 ;rem 

21 8 

820 

DATA2, 11 457,721 7 ,2408 

srem 

1 1 

450 

DATA2,bl 01 ,2703,603 ìrem 

154 

8 30 

DATA2, 1 081 4,721 7,2703 

: rem 

6 

460 

DATA 2 ,7217,5407,3215 srem 

214 

840 

DATA2 ,4 81 7,7217,2664 

; rem 

229 

470 

DATA2 ,6101 ,3725,2406 srem 

217 

too 

DATA 2 ,1 2860,6430,603 

srem 

214 

4 BO 

DATA2, 20 2 5,1 607,4103 srem 

1 58 

860 

DATA2 , 1 Ow 1 4,6430,4291 

s rem 

9 

490 

DATA2, 1 1 457,81 01 ,1607 srem 

7 

8 70 

DATA2, 9634,6430,803 

srem 

173 

500 

DATA 2,2025, 1 607,603 srem 

Ibi 

880 

DATA 2 ,8583,4291 ,321 3 

srem 

227 

510 

DATA2,360o,28b4, 1 432 srem 

213 

690 

DATAi ,9b34,»l 01 , 5728 

srem 

231 

520 

DATA 2,7217,5728,2864 s rem 

226 

900 

DATA2,1 607,321 3,0 

srem 

50 

530 

DATA2,b101 ,5728,481 7 srem 

220 

910 

DATA2, 963 4, 5728,1 604 

srem 

227 

540 

DATA2, 6430, 321 5,1 607 srem 

207 

9/0 

DATA2, 2025, 4050,0 

srem 

45 

530 

DATA 2 ,7217,5407,2145 ; rem 

213 

930 

DATA6, 8583, 5407,1072 

srem 

226 

560 

DÀTA2, 321 5,2703,0 : rem 

50 

940 

DAT AG 

: rem 

231 
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Paper Hook 
program**! per C64 

ediz. S*soft 


Per tutti i possessori di C64 è ora dispo 
nìbile questo volume, che raccoglie tutti 
i programmi pubblicati» fino al numero 
20, sul settimanale PaperSoft. 
Quarantaquattro programmi tutti per 
C64 non sono certamente pochi: e spa- 
ziano dai giochi “arcade style" alle utili- 
ty dì sicuro interesse per iì programma- 
tore. Per citarne solo alcuni tra i più 
interessanti, troviamo un programma 
per ottenere da stampante dei listati 
con una codifica simile a quella usata 
da SS, un database, un editor di carat- 
teri e tanti giochi, tra cui il Poker, il 
classico mille miglia* serpentone, bo- 
wling, ecc... 

li libro è strutturato proprio come Pa- 
perSoft, lascia cioè ì! massimo spazio 
possibile ai listati; questi ultimi sono tut 
ti preceduti da un sintetico commento, 
comprendente la configurazione richie 
sta per far “girare” il programma (even 
tuali stampanti* disk drive* joystick, 
ec c.J e Se istruzioni per Li gioco o, nel 
caso delle utility, per 3 'utilizzo del prò 
gramma. 

Al volume è allegata una cassetta con 
tenente - nello stesso ordine - tutti i 
programmi che compaiono nel libro: è 
così possibile risparmiarsi un noioso la- 
voro di battitura e le tante ore spese 
alla ricerca dei propri errori, conservan- 
do allo stesso tempo la possibilità di 
studiare il listato su carta del program- 
ma, al fine di migliorare la propria cono 
scenza dell'arte della programmazio- 
ne. 

Oltre a questo libro dedicato al C64, 
sono disponibili anche I libri contenenti 


le collezioni di programmi pubblicati su 
PaperSoft rispettivamente per VIC 20* 
Apple, Texas Instruments Tl 99 e ZX 
Spectrum. 


Paper Hook 
progran ni VIC 20 

ediz. J*so/f 

Il VIC 20, anche se ormai quasi al tra- 
monto della sua gloriosa carriera — a 
causa della comparsa del 06 — è pur 
sempre uno degli “home” più diffusi, ed 
è ancora in grado di dare delle ottime 
soddisfazioni ai suoi possessori. Proprio 
a questi ultimi è dedicato il Paper book 


per il VIC 20 Analogamente al “fratel- 
lo" per il C64, questo libro è una raccol- 
ta dei programmi pubblicati sul settima- 
nale PaperSoft, fino al numero 20. 

. programmi presentati sono ben cìn* 
quanta, la quasi totalità dei quali “gira” 
sul VIC inespanso. Utility e giochi* tra 
cui una routine di gestione degli errori, 
una routine che permette di ricuperare 
un programma accidentalmente cancel- 
lato con un'istruzione NEW, il Poker, 
master mind, organetto e tanti altri pro- 
grammi “arcade", di avventura ed edu- 
cativi per bambini. 

Anche a questo Paper book è allegato 
una cassetta contenente tutti i program 
mi già registrati, eliminando così alla 
fonte qualsiasi problema di digitazione 
degli stessi e rendendo immediato il di- 
vertì mento con II proprio VIC 20. 



PROGRAMMI 

PER Ifisvon 


Griphic art 

on thè Commodore 64 

(in lingua inglese) 

di Bori* All* ii 
ediz. Sanabili* 

I grafici a tartaruga (Turile Graphics in 
inglese) rappresentano forse il modo 
più immediato e semplice per ottenere 
dal C64 complessi disegni in alta risolu- 
zione. Ai Turile Graphics è dedicata la 
primo metà di questo libro; si parte da 
una spiegazione di che cosa si intende 
per Turile Graphics, per arrivare alla 
diretta realizzazione dì complessi dise- 
gni sul video del C64, come spirali ed 
altre forme geometriche complesse e di 
sicuro effetto “artistico”. L'ultima parte 
di questo primo capitolo è dedicata ad- 
dirittura ai grafici Turile in modo multi- 
colore che, pur sacrificando la metà del- 
la risoluzione orizzontale, permettono 
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UBRERIA 


JACKSON 

I TI I 

A Milano, 

in via Mascheroni la. 
la prima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Ubreria JACKSON 

La prima software - libreria italiana. 

A Milano, In via Mascheroni 14. 

UBI 02-437385 

Vieni a trovarci: ti aspettiamo. 




tuttavia dì ottenere effetti grafici colora- 
t issimi e veramente sorprendenti. 

Il secondo capitolo tratta approfondita- 
mente le altre tecniche grafiche, da co- 
me ^configurare la memoria per ospita 
re nuovi set di caratter, a come ridefinì* 
re questi ultimi ed a come ottenere gra- 
fici In alta risoluzione, 

Questo libro permette anche al prò* 
gramolatore meno esperto di accostarsi 
al mondo della grafica in alta risoluzione 
nel modo più semplice ed immediato, 
ottenibile con il sistema Turile Gra- 
phics; tariti che il LOGO, noto linguag- 
gio di programmazione per bambini, è 
strutturato proprio sui grafici “a tartaru- 

grophic art 

on th© commodoro 64 

I ■■ .A. ■ lin i ww L8L— L. rjfcf 1 -ilr bIIaa 

tiicnniqpes toc mgn imOiuuOfi yfoprres 


borì* dlan 



I libri italiani vengono 
off arti con il 10% di aconto 
ani prezzo di copertina. 


1 libri recensiti 
possono essere 
ordinati utilizzando 
il coupon a pag. 82 
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Il Jacksoniano sceglie 
tra 14 top... 


Jackson & Sons 
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Jackson; una grande, esauriente scelta di periodici 
per sapere tutto ciò che è indispensabile. 

In più abbonandoti o queste riviste puoi moltiplicare 
le tue possibilità di vincere lì favoloso premio del 
grande concorso Jackson. 

Videogiochi, ia guido indiscussa al fantastico 
mondo dei videogames; 

Home Computer, la rivista del computer in casa, 

Personal Software, a rivisto dedicato ol software 
dei personal computer; 

Bit, la prima rivista europeo di 
personal computer, software, accessori, 
la più prestigioso e più diffusa 
in Italia; 

Informatica Oggi, il punto dì riferimento obbligato 
per chi si occupa di sistemi EDP e di Office 
Automation; 


PC Magai ine, a prima rivista italiana dei sistemi 
MS-DOS, Personal Computer IBM e compatibili; 
Personal O, la rivista Indipendente per gli utenti di 

PC Olivetti; 

Co mpu scuola, la rivista di informatica nello 
didattico, per la scuola italiano; 

lei eco m imitazioni Oggi, la rivista di 
telecomunicazioni e tei e malica; 

Automazione Oggi, il mensile della nuova 
automazione Industriale; 

Elettronica Oggi, lo più autorevole rivista di 
elettronica professionale, strumentazione e 
componenti; 

L’Elettronica, il quindicinale di politica industriale, 
componentistica, informatica e telecomunicazioni; 
Elelctor, la più diffusa rivista europea di 
applicazioni e progettazione elettronica. 

Strumenti musicali, il periodico di strumenti musicali 
e computer-music 


... e ha, una biblioteca , 
ricchissima tutta per lui. 


Richiedete il catalogo inviando lire 30 OD tn francobolli a: 

GRUPPO EDITORIALE JACKSON 


I — Ecco chi si è abbonato, - 
ha risparmiato e ha vinto 
un Commodore 64 


Pubblichiamo l'elenco dei primi 40 fortunati vincitori del concorso abbonamenti 
Jackson 1 985, A loro vanno le nostre più vive felicitazioni e agli altri nostri 
abbonati l'augurio di essere fra i 60 restanti fortunati. 

Il prossimo mese pubblicheremo l'elenco di altri 20 fortunati vincitori* 



29! SICHEL Teresa 

Via Volontari Del Sene 
29010 PQNTENURE [T 


1) AIRQLDI Marco 

Vie R Felisalti, 5 
44100 FERRARA (FÉ) 


2) GHEZZO Guglielmo 

Via dei Pini, 58 
45010 ROSOLINA £ROS 

3) BECCAR! Alberto 

Via XXV Aprile 

46010 BREDA ClSONI (MN) 

4) GAREDDU Mauro 

Via ls. Mirrionig, 95 
09100 CAGLIARI (CA) 

5) CARE HO NI Roberto 

Via Europa, 2 1 

20010 FOGLIANO MILANESE (MI) 

6) 111 PARIA Renato 

Vto Vgllescura, 1 85 
15030 CONZANO (AL) 

7) ANTOLLN1 Mariano 

Via Isnardl 32/"l-9 
16016 COGOLETO [GE) 

3|. JAN NONI SEBASTIANI Giulia 

Via Livorno, 89 
00162 ROMA (RM) 

9) TARALLO Vincenzo 

Via G- D Agostino, 18 
69029 TAURI ANO VA (RC) 

10) C.B1. COMPUTERS Site 

Via S. Carlo, 1 3 

90060 S. ANGELO DI BROLO (ME} 

1 1) FA BB RETTI Giuseppe 

Vip Delle Baleniere, 92 
00121 OSTIA LIDO [m 

12. FABBRI Fabio 

Via Celi ini, 16/C 
57023 CECINA (LI) 


13- TUCCELLA Silvano 

Via M. della Misericordia, 12 
66100 CHIET1 (CH) 

14; RUSSO Enrico 

Via Coccia puoti, 50 
84014 GIULIANO (NA) 

15) CURSÀRO Paolo 

Via Nazionale, 100 

&4040 CAPACCIO SCALO [SA) 

16. AMABILI Stefania 

Via M Bartoloni, 8 

40023 MARINA DI RAVENNA jRA) 

17) ROSSI Alessandro 

Via Yuri Gogarin, 5/2 
40044 PONTECCHIO 
MARCONI (BO) 

18) PAGNINI Marca 

Vìa Partigiani, 15 
61 100 PESARO [PS) 

99; CHI LIA 1 Alda 

Via Verdi, ó 

50055 LASTRA A SlGNA (FI) 

20 TOMASELIA Miguel Angel 

Via S. Tiziana 5 
31020 ZOPPE' 

DI S. VE N DEMI ANO (TV) 


21 SCOLA Livio 

VilEo&aio Riviera, 35 
32010 FARRA D ALPAGO |BL| 

22 POLI Carlo 

Via Stradella, 1 
20129 MILANO (MI) 

23 ROSSI Guido 

P.zza Vittoria Emanuele 11 5 
50065 PONTASSIEVE fi} 

24 RANDELLO N elide 

Via PrEubio, 4 
37045 IEGNAGO (VR) 

25) POOL INFORMATICA SH 

Via Emilia S. Stefano, 9/C 
42100 PEGGIO EMILIA (RE) 

26 « TINCANI Daniele 

V&a Trieste, 6 
55040 RÉTIGNÀNG 
Di STAZZEMA (LU) 

27, RASCHIERÀ Bruno 

Vio Rizzai 

33091 CASTEL NUOVO 
DEL FRIULI (UD| 

28) LENZA Pietro 

Via Degli Eucalipti, 14 
84100 SALERNO (SA) 


30 DE MARZO Silvia 

Via Napoli, 5 
89024 POLI SIENA [RQ 

31 NQCERA Gaspare 

Via Edif, A36 
21020 I5PRA (VA) 

32} 1XL$. “A. VOLTA 1 ” 

P.zza S. Maria Della Fede, 16 
80141 NAPOLI (NA) 

33} TURO Andrea 

Via Dcmneletlo, 84 
2004 9 ARQNA (NO) 

34 TALF&BC Silvano 

Via Furacelo, 21 
40026 IMOLA (BO) 

35; ZOLLO Sandro 

Via Monastero, 127/1 
17026 NOLI }SV) 

36) LORETELLI Albertino 

Via Dei Villini 23 
04011 APRI LIA |LT] 

37 1 ANTO NELU Antonia 

Vìa Adriatico Vico X, 6 
66036 QRSOGNA [CH) 

38) CAPORALE Enzo 

Via Ten. Vitti, 93 
70043 MONOPOLI (BA) 

39 1 MUSACCHIA Benedetto 

Via Terrò Santa, 92 
90! 41 PALERMO (PAI 

40i PALA Bruno 

Vsa Matteotti, 33 
09026 SAN SPERANTE (CA) 





input* output 

t .A^r , 


Vendo, cambio compio gMxhtvd utili 
iiE5 per Qimmodor* 1 64 . inviare b tata, 
rispondo a tulli Erronuoto Parati Lar 
gt> 2 Giugno, 42 32100 Arezzo 

910145 

Vendo, cambio numt-riht firrigfamrisi 
pei CBM 64 Invw re francobolli fwr 
elenco compie m Walter Sellini ViiP 
Muta. 28 '1100 Asti Tel 56236 

Vendo f cambio programmi etcezio 
nòti iLMi tra cui uk'unt medili (Burse. 
Tran, ecc |. Telefonati' me |msi M.iu 
ro Marion Via Pio XI, 50 22066 Maria 
mComenH' Tel. 031 748706 

Vendo Intelleviskon 1 anno di uMn con 2 
Cilene a L. 300.000 non l rati abiti 
(ma* 250 .(XK», Telefonare o w uvere 
ore pasti. Michele Ferrari ■ Celi sci Mon 
letizio, 4 ■ 15057 Torturo (ALI Tei. 
DITI 867625 

At rendane 1 Vendo a L. 25 000 il Turbo 
Tapt per VIC 20 a 16 Kbyl# Diminuì 
sce i tempi d: recisi razione di & 10 vol- 
te fVr ovvi morrei fumimi* sul» con 
puMtrairiTìii da He E 6 Kbyte Spedizione 
cèlere- Annunciti viTrifire valido Off 
Ste Maiale Via Don Ludovico, 9 
95aiO Prdaira *C H Tei 095 9IS63S 

Cnmpm pruyrdmmi (M CW di vano 
gem-n- Sfattili* le voalrc lue con pr cz 
zi v caraneristiche. Màxima serie ni 
Mauro Botano Via Del Giudee. 23 
8LD10S. Gregorio Malese tCEl 

Vendo. al tnigkor offerente, per C64 
Sta >64, He* Wtiict 64, Tur tic Graphics 
0 originai i n cari uccia Quasi mrn usai > . 
con. Estrazioni. Vincenzo Garrone Vu 
Md^zinì. 47 10123 Torino Tel- 

01! £33240 

Compro, cambio, tendo programmi 
per il C&4 e per il VIC 20. Per maggiori 
informazioni scrivete a. Massimo Ta 
basso Piazza Motinens. 1 • 12038 Sevi- 
ziano fCNl 

Proponiamu ld tormazkMie &li uri club a 
livello nazionale per lo scambio di prò 
grammi C64 di natura nscluiuwinvrne 
scientifica n ingeijnei-isliivi. F.mrn » Ben 
dsm'Jli Vw Stiri ni rm. 12 56035 Là n( PI J 
Tel. 0667 635262 

Vendo programmi per Cb4. Ne ho di 
magnifici. come. DeuUhlon. Pule Posi 
tinti . SìitwhW BASIC, Spazio 1999 
Prezzi 3illipuZH.ni, cambio con lutti, 
scrivetemi; ho più di 150 giochi che 
Sanno per voi Maurizio Ferrare Cor 
vi A Mirri, 261 63055 5 Maria C V 
fCEt Tel 0823 845131 

Vendo per VfC 20 programmi in LM. 
(^dank'i. ^tH'hi. utifity.écc Vendo ino! 
Tre cartucce sempre per VIC 20 a soie 
L .28 000 Richiede n- tale Maurizio 
Russo Vih RTncira, 5 1 5030 Ri ivgnarx i 
Monferrato Tel 0142 68663 

Vendo videogame Philips Videopac 
G7000 pò uro toSydld. mai usato, al 
miglior otlerenìe. Marco BerK^cngii 
Via Delta Ubarti. 29 61031 Aveisa 
«CEJ 



Compro, cambio. uv» do programmi 
per il C64 n A VIC 20. Sono anche 
itili' renaio a entrare in cuoiano con 
ali ri pofiaesaori di questi due computer 
per scambio esperienze. Per maggiori 
informai»™ scrivere a; Massimo Ta 
basso Fìu^ju Molmeris, I 1203S So vi- 
gliar» iCN) 

Attenzione a prezzo favolosa vendo 
VlC 20 più registratore originale Com- 
modore, poysu-k De Luxe Spee travi 
dee e m regalo tanto software fra cui 
van gii* hi ed utility 11 rullo compra in 
» data 2^ 09 '84. con garanzia, usato 
fjochi'wiimu Massima sanati Mas&imi- 
lta.no Ber no Via Co raglia. 22 40026 
Wk iBO) Tel 0542 27768 

Pei CBM 64 vendo su cassetta, a 
L 15 00 Ù, i st-gurntL ianfc: Cafeai, Jau 
breaker. Scatola. QBeri. Gynass, De 
carhlon Ffippo Leto - Vsa S D'Acqus 
sto 21100 Vare* Tel 0332 230790 

Vemln VÌC 20 più rv^uaiore dataci 
sette più 5 cari ucce gioco al prezzo di 
L 300 000 Vendo anche smgolarmen 
le a prebenda vq|xmd<ue G Rianimo 
La Selva V*a Carla Dei Balzo 83018 
S Martino VC (AVi Td. 
0924 941302 

Appelli rivoli m iì lui li gli ptenri umbn 
di j i CM. £ rom a Poligna il ^Fvdgoòs 
4C”, il piimo Commodore Gub um- 

hru S* ! ik' ci'ntrrtli- E i FnHgno jn-dì in 

aliesnmento in rutta l'Umbria. Scrivere 
n leHunure Ore pani! PuhgnùH 4C 
Vtx. S Andrea, 17 06031 Beviigna 

(PGt Tel 0742 72591 

Vendo calseli a con 8 giochi o utility 
per VIC 20 a L. 10.000 Per lista inviare 
L. 500 a: Giovanni D’AJbd* Via Grado, 
M 48100 Ravenna Td. 0544/420582 

Grande propuslal Siamu un gruppci di 
persone t |x*r la modica ciba di L 6 000 
mensili v* tfjg|idim> il disturbo di com 
tirare le noi mal) riviste ulilily, inviando 
vi t hijtari dei programmi compiei i di 
istruzioni Dobbiamo [vro raggiungere 
la quota minima di 15 abbonati Rich» 
dere inEurmaziiìrii Annuncio sempre 
valico Davde NebuJont ■ Via Pi e mon ■ 
ie E 47 20015 PtìTdbfcMjo fMJl 

Wndo meccanica stampante Epson 
M- d 350 adatta per rendere iscriverne 

umi rumeni U dgilale. con suqnporto 
didattico per la suo appkaz»ro a 
L 25000 Eventuaknenre cambia con 
software per C64, Maunz» VkjH Te) 
02 4407292 


'cncta programmi e videogame di tutti 
itrpi. su nastro u disco pcrC64 a prezzi 
intéresàitti da enneordare Suk) su ri 
chiesta Gtovann. Russo Via Regina 
Matgherita. 37 80053 CasteHammare 
di Stabia (MAS Tel 061 8715491 

Vtfndo per V KT 20 casse l la con 20 g» 
cht a L, 22 000 a svelta fra quelli di uro 
tara che invierò a chi mi tele Iona A L 
30.000 uendo 40 giochi (cassetta cotti 
presa). Alcuni titoli; Invadete, Flipper. 
Frc.ig.gt; r , Tu tanka men , Se ram hler , 
Anv -,k A ngeta G ianmjc c i - VLj Gap i a , 
13 05100 Temi Tel 0711 811636 

Vendo VlC 20 p3Ù espansione di 3-8 16 
Kbyle e 4 giochi, ira cui Puc Man. d 
L 250 000 Telefonare dalle ore 19.00 
in poi. Maurizia Frison Via Gasimi. 2 
20052 Monza IMI) Tel. 039 813763 

Cdmbiu st iflwanp ppr C64 Sono mie 
tessalo a tutto e rispondo immediata- 
mente a chiunque invierà la propria li 
sta. Giuseppe Di Lello Cora) Europa. 
13 66054 VasiolCH} Tel 0873 4393 

Per CBM 64 vorrei acquisfarr 1 dei prò 
grammi su cassetta o hstato di giochi, 
utility, gestionali. Turbo Tapeedm par 
ncolare m^egTirfmeom BASIC RijAfT 
ro Castellon Via Monte Lavata. 5 
04100 Latina Td 0773 489689 

Compro, cambio, wndu programmB 
ptT VlC 20 di tulli i generi Spedite le 
vostre 1 tate Assicuro massima sene! a 
Et! ere Ejnilicin! Via Anna Frank. 23 
45100 Rovigo Td W25 200219 

Camino, vende i soft ware per C64 Esulo 
Lom barca i Gianluca bruen Via Mal 
ta. 16 25100 Brest h 

Per C64 wtidu tutugr amrro Miayuzzmu 
su disco: 1.50D artica]]. L. 25 000 Sem 
prc su drat o. a L. 20 000, vendo Super 
pipeline Marco Longu Vm Pennello. 
2 82100 Benevento Tei. 0624 21972 


Vendo programm i per VIC 20 mespart 
so a L 500 cadauna salo su cassetta. 
Inoltre oflro al miglior offerente dui; 
cantiche Poker e Goni Daniele Mar- 
chim Via Monde! li, 21 27029 Vuji'va 
no (PV) 

Per C BM 64 vendo, camini ► p^ttgra rnrm 
come; liner national Soccer, Pac Man, 
Pule Posiiion f tanlissmni dtri da L 
tì.QOO a L 25.000. Inviare L. 500 per 
lista. Amunon sempre u^lido Davide 
De Giusept^e ■ Via Omero, 43 - 72023 
Mes^gne (BRI 

Vendo tantali n i videogiuCht per C64 j 
prezzi veramente ridiedi Cambio an- 
che programmi, so k> su cassetta. Invia 
temi La' vostra lista per ricevere la rma 
Scrivetemi, rimarrete soddisfatti IMico 
la Guntpu'ii'i li Vu Petrarca 39012 
Merano (B2| 

Compro pei VlC 20 espansione 32 

Kbylf RAM t' r muli re, vendo videogici 
cn Leonardo GNG. o Hammex con 3 
cassette a L 100. UGO. Gtarondrea 
Monni V w Della Teme. 3 2012? MiIa 
no - Tei . 02 2822949 


Vendo VlC 20 pnù istruzioni in ilaftano. 
2 manuali, cari ndge "Srar Posi", 44 g»o 
chi tu cassetta, il lutto in unirne condi- 
zioni a L. 220.000 trattabili anziché L 
300 000 Telclonare a Gmlio MonduUo 
Via Salvo D'Acquisto. 4 100 15 
(TOf Tel 0125 46303 

Vendo programmi giochi ed uiìhià per 
VlC 20 I program mi sono tutti su cas- 
setta Richièdere tata. Antonio Di Me 
gEin Via Roma. 73 80077 Ischia Porlo 
iNAf 

Attenzioni Vendo VlC 20, registrato 
re. stampante, espansione 16 Kbyte, 
munii or, 2 carlridge, 90 programmi, 
joystick Tulio a L 950.0fXf ir al labili 
Vendo un blocco. Luca Bocchiardo 
Via Dés Geney, 34 9 16148 Genova ■ 
Tel 010 391675 

PtT CBM 64 software ad un pre**o 
masiirno di L, S ODO. Vendo ,J Pole Pubi 
lirtn" su casse i la a L. 20 000. Emanuele 
Beriiibrj Via Ponchielliu 7 20129 Mib 


Venda a L 40 000 cassetta con 10 ga 
mes per CBM 64 i Poker. Basket. Cai 
ciò. Biliardo, Pule Pusit km . Jumpman, 
Tennis 3D. Fakon. Zaxxaiì. Congo 
Bongo I c«n ui (Hnoggio il meravigliciso 
’■Turbulap^■64 ,, S os&iciira la mossi ma 
«TVtò Spedire Firn pi. irto a Giuseppe 
Colizzi Via Gravina. 29 4 75100 Ma 
tera Tei 0835 26178 

Vendo Inlrlevision più una cauetla a 
L 300000 Serie cassette a L 30 000 
cada uro Scriwre g leieìonare ore pa 
sii Dar» Peimgoai Cor» Don Olta- 
ne, 7 15057 Tonoro (AU 

Veodn programmi per C64 (Dwath 
k jn. Popeye, Pit Ioli , Burger Time . ecc ,) 
da un mimmo di L 2 000 ad un massi 
mo di L 3 0U0. Richiedere lista con 
prezzi a Mauro Romani ViaG Vaili, 
95 00149 Roma Tel 06 526S321 

Compro registra tare C2N Commodo 
re per V3C 20 a C64 lurtzianante a L 
40 .000. max. L- 50,000 Telefonare dal- 
le l-l ODaik- 17 30 a Paolo Gentile Pule 
m; Via Ferrarecce P Puma vera 
81 100 Caserta ■ Tel. 0823/342665 

Vendo VIC 20 più icgistratore C2N, 4 
cariridge (Pi rat Cove II, Money Wars, 
Mule Aitxtck, Cusmic Crune Neri, due 
libri, cassette iCenlipede, Fruggee, 
Dcnkey Kong. Amok), 40 programmi 
vari. Tutta a L 400 000. Solo zona Mi- 
lane GianLg.M'Magnaboscc Vta A 
Sei ragl», 12 20031 Ciceri Maderno 
IMI» Tel, 0362 508993 

Vendo ottimi programmi per VIC an^ 
che a 8* J6 Kbyte o 16 Kbyte blocco 5 
Scrivere o telefonare per accordi a 
Giannm Caudino Via Gragjia, 18 
10136 Torino Tel 01 1 352830 

Vt-ndo Commodore VIC 20 rnr 7 ras 
sene tra cui Atrack. L'idob d'oro. 
Shuttli', ti i a L [70 00ÒErdl!dbill Te 
, I i .',- pasl N - L •■ tv r ^wtt 
Vlì Ghi'ulHTi, 16 44100 Ferrara Tel 
0522 66855 
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Dalla grande edicola 

Jackson 

Tutto sul personal 

computer 


PC MAGAZINE 

In questo numero: 

Inix 

Easy writer: Caro PC, ti scrivo., 
Knowledge man 


PERSONAL O 

In questo mimerò: 

Il caso Fiat "Mille e un PC" 
MIO in redazione 
Un mondo a portata di tasto 


Personal -O/PC/Bit/Rersonal Software 
sono pubblicazioni firmate: 

GRUPPO EDITORIALE JACKSON 

via Rosellini, 12-20124 Milano 


BIT 

In questo rumerò. 

Speciale MSX 


In prova: 

Sinclair GL 
CP 80 II 
Yashica YC-64 
Philips VG-8000 
Canon V-20 
Sony Hit- Bit 75P 


PERSONAL SOFTWARE 

Ir questo numero: 

Language Tutor per Spectrum 
Sprite Editor per C64 
One Touch per ViC 20 
Apple: pagine video e dintorni 


